Ввести с клавиатуры массив из 5 элементов найти минимальный из них 4 15 3 10 14напишите пожалуйста в паскале
Ввести с клавиатуры массив из 5 элементов найти минимальный из них 4 15 3 10 14
напишите пожалуйста в паскале
Гость
Ответ(ы) на вопрос:
Гостьprogram low;
var a,b,c,d,e,min:integer;
begin
writeln('Введите 5 чисел:');
read(a);
read(b);
read(c);
read(d);
read(e);
min:=a;
if b
Гость Program cl;
Var
A:array[1..N]of integer;
x,i:integer;
Begin
For i:=1 to N do
begin
write('vvesti element')
Read(A[i]);
end;
For i:= 1 to N do
Writeln(A[i],' ');
Writeln;
min:=A[1];
For i:=1 to N do
begin
min>A[i] then
min:=A[i]
end:
End.
Не нашли ответ?
Похожие вопросы