Написать программу Вывод минимального элемента массива целых чисел

Question

Информатика

Артемьюшка

22 сентября, 13:48

Написать программу Вывод минимального элемента массива целых чисел

+2

Ответы (2)

Знаете ответ?

Богдана · Answer 1

const

n=15;

var

a:array [1 ... n] of integer;

i, min:integer;

begin

for i:=1 to n do

begin

write ('A[', i,'] = ') ; readln (a[i]) ;

end;

min:=a[1];

for i:=2 to n do

if a[i]
writeln ('Min: ', min) ;

readln;

end.

Юнонка · Answer 2

uses crt;

var

a:array[1 ... 100] of integer;

i, min:integer;

begin

randomize;

write ('Введи количество элементов массива: ') ; read (i) ;

min:=100;

clrscr;

writeln ('Массив: ') ;

for i:=1 to i do

begin

a[i]:=random (10) - 9;

write (a[i]:4) ;

if a[i]
end;

writeln;

write ('Минимальный элемент массива: ', min) ;

end.