Предмет: Информатика,
автор: gulnaz8917
Pascal
известна масса каждого из 12 предметов, определить массу самого тяжелого
Ответы
Автор ответа:
0
var a:array [1..12] of integer; i,max:integer;
begin
for i:=1 to 12 do
begin
a[i]:=random(1,1000);
if a[i]>max then max:=a[i];
end;
writeln('naib. massa=',max);
end.
begin
for i:=1 to 12 do
begin
a[i]:=random(1,1000);
if a[i]>max then max:=a[i];
end;
writeln('naib. massa=',max);
end.
Интересные вопросы
Предмет: Английский язык,
автор: pyshochekyt
Предмет: Русский язык,
автор: amongkop
Предмет: История,
автор: mirnaya20081105
Предмет: Алгебра,
автор: Nikita64647