Аватар
Информатика, опубликовано 2018-08-22 20:19:35 by Гость

Cоздать программу поиска минимального значения в массиве из 7 целых чисел/

Аватар
Ответ оставил Гость

Program fofgogjoj;
const n=7;
var
a:array[1..n] of integer;   
min,i:integer;
begin
for i:=1 to n do 
begin 
a[i]:=random(20); 
Write(a[i],  ); 
end;
min:=a[1];
for i:=2 to n do 
if a[i]min:=a[i]; 
Writeln;
Writeln(Min ,min);
end.

Вопрос
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.