Создать программу в паскале: дан массив целых чисел х< =20 найти минимальное и максимальное значения хелп! !

xeniyaforevermailru xeniyaforevermailru    2   05.04.2019 11:59    0

Ответы
Muna222 Muna222  28.05.2020 17:21

program kurs_v;

const x=20;

var n:integer;

A:array[1..x] of integer;

i,min:integer;

begin

min:=A[1];

for i:=2 to N do

begin

If A[i]<min then min:=a[i];

end;

write(min);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика