Паскаль, одномерный массив
var a:array [1..6] of integer; i, max: integer;
begin
for i:=1 to 6 do read(a[i]);
max:=a[1];
for i:=1 to 6 do
if a[i]>max then max:=a[i];
writeln(max); readln; end.
program zadacha;
uses crt;
var a:array[1..6] of integer;
max,i:integer;
for i:=1 to 6 do readln(a[i]);
for i:=1 to 6 do if max > a[i] then max:=a[i];
writeln(max);
readln;
end.
Вроде правильно..
В какой оболочке земли живёт большинство живых организмов?
Из каких неживых частей состоит экосистема
На какие расы делятся население земли
Определение статуса военнослужащего (краткий ответ!!)
Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.