Основы применения вычислительной техники и программирование. Беспалов В.В. - 50 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

for i:=1 to 5 do x[i]:=1;
Заполнение всех элементов массива случайными числами из диа-
пазона 1–9 :
for i:=1 to 5 do x[i]:=random(9);
Заполнение всех элементов массива при помощи ввода с клавиатуры:
for i:=1 to 5 do
begin
write(‘x[’,i,‘]=’);
readln(x[i]);
end;
6.1.2. Вывод массива на экран
Вывод массива на экран в одну строку без пояснений:
for i:=1 to 5 do writeln(x[i]:6:1);
Вывод массива на экран в столбец с пояснениями. Этот вариант
гораздо нагляднее. Старайтесь использовать его:
for i:=1 to 5 do writeln(‘x[’,i,‘]=’,x[i]:6:1);
6.1.3. Работа с массивами
Пример 6.1.
Определить самую высокую температуру и самый
теплый день в мае.
program massiv;
uses crt;
var t:array[1..31] of integer;
i,max,n:integer;
begin
Clrscr;
for i:=1 to 31 do
begin
t[i]:=random(20);
write(t[i],‘ ’);
end;
writeln;
max:=t[1]; n:=1;
for i:=2 to 31 do
begin
if t[i]>max then
begin max:=t[i]; n:=i; end;
end;
writeln(‘t-макс.= ’,max,‘ в ’,n, ‘день’);
end.
51

Страницы