Автор Настюша Ялышева задал вопрос в разделе Другие языки и технологии
А(8)Найти минимальный элемент массива. ЯЗЫК ПАСКАЛЬ и получил лучший ответ
Ответ от Влад Симкин[гуру]
элементарно
program imya;
uses CRT;
var a:array [1..8] of integer;
i,min:integer;
begin
write('vvedite a[ 1 ]');
readln(a[1]);
min:=a[1];
for i:=2 to 8 do begin write('vvedite a[ ',i,' ]'); readln(a[ i ]);
if min > a [ i ] then min:=a [ i ];
end;
writeln('minimum = ', min);
readkey;
end.
Источник: опыт
Ответ от Sm[гуру]
Проще препода ублажить.
Проще препода ублажить.
Ответ от Даниил Зеников[новичек]
элементарно
program imya;
uses CRT;
var a:array [1..8] of integer;
i,min:integer;
begin
write('vvedite a[ 1 ]');
readln(a[1]);
min:=a[1];
for i:=2 to 8 do begin write('vvedite a[ ',i,' ]'); readln(a[ i ]);
if min > a [ i ] then min:=a [ i ];
end;
writeln('minimum = ', min);
readkey;
end.
элементарно
program imya;
uses CRT;
var a:array [1..8] of integer;
i,min:integer;
begin
write('vvedite a[ 1 ]');
readln(a[1]);
min:=a[1];
for i:=2 to 8 do begin write('vvedite a[ ',i,' ]'); readln(a[ i ]);
if min > a [ i ] then min:=a [ i ];
end;
writeln('minimum = ', min);
readkey;
end.
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: А(8)Найти минимальный элемент массива. ЯЗЫК ПАСКАЛЬ