Создать программку в Паскале:Дан массив целых чисел хamp;lt;=20Найти малое и максимальное

Сделать программку в Паскале:
Дан массив целых чисел хlt;=20
Отыскать малое и наибольшее значения
Хелп! Безотлагательно надобно!!!

Задать свой вопрос
1 ответ

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]lt;min then min:=a[i];

end;

write(min);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт