ввести с клавиатуры массив из 5 элементов найти минимальный из них 4 15 3 10 14

+ 0 -

Sergey50

13 дек. 2014 г., 1:20:20 (9 лет назад)

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<min then min:=b;
if c<min then min:=c;
if d<min then min:=d;
if e<min then min:=e;
write('Минимальное: ');
writeln(min);
end.

+ 0 -

Georgy150903

13 дек. 2014 г., 3:17:41 (9 лет назад)

 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.