Написать программу Вывод минимального элемента массива целых чисел
Написать программу Вывод минимального элемента массива целых чисел
Гость
Ответ(ы) на вопрос:
Гость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]
Гость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]
Не нашли ответ?
Похожие вопросы