C (8), случ. числа [-10;10], найти наименьший элемент в паскале.

jru77 jru77    3   09.12.2021 13:39    1

Ответы
mishamanoaa mishamanoaa  28.01.2022 06:08

program test;

var c: array [1..8] of integer;

i,m: integer;

begin

randomize;

for i:=1 to 8 do

begin

c[i]:=random(21)-10;

if i=1 then m:=c[i] else

if c[i]<m then m:=c[i];

write(c[i],' ')

end;

writeln;

write(m)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика