Предмет: Информатика,
автор: аоппаег
дан призвольный массив состоящий из чисел а1=5 а2=3 а3=8 а4=2 а5=10 а6=7 а7=20 а8=1 нужно написать прграмму и найти минимальное из них
Ответы
Автор ответа:
0
program Example;
var
m : array[1..8] of integer;
maxV,i : integer;
begin
for i := 1 to 8 do
begin
readln(m[i]); // Этим циклом мы заполняем массив
end;
j := m[1];
for i := 2 to 8 do
begin
if (m[i] > m[i-1]) do j := m[i];
end;
writeln(j);
end.
var
m : array[1..8] of integer;
maxV,i : integer;
begin
for i := 1 to 8 do
begin
readln(m[i]); // Этим циклом мы заполняем массив
end;
j := m[1];
for i := 2 to 8 do
begin
if (m[i] > m[i-1]) do j := m[i];
end;
writeln(j);
end.
Автор ответа:
0
СПАСИБО ОГРОМНОЕ
Похожие вопросы
Предмет: Математика,
автор: elnurarapov384
Предмет: Геометрия,
автор: aleksandra5968
Предмет: Английский язык,
автор: Аноним
Предмет: История,
автор: morobratCBR