Помогите составить программку в Pascal , что в белоснежной рамочке

Помогите составить программку в Pascal , что в белоснежной рамочке

Задать свой вопрос
Николай Ауликов
Сколько всего может быть чисел?
1 ответ
Program zadacha; Var mas:array [1..100] of integer;     min,max,i,n:integer;begin Writeln ('Введите количество чисел'); Readln (n); For i:=1 to n do begin writeln ('Введите ',i,' число');                        Readln (mas[i]);                  end; Writeln ('Приобретенные числа '); for i:=1 to n do writeln (mas[i]);Max:=mas[i];For i:=2 to n do  if mas[i]gt;max then max:=mas[i];writeln ('Наибольшее число ',max);min:=mas[i];For i:=1 to n do if mas[i]lt;min then min:=mas[i];writeln ('Малое число ',min);end.
Ленка Артецкая
Program zadacha;Var mas:array [1..100] of integer;min,max,i,n:integer;beginWriteln ('Введите количество чисел');Readln (n);For i:=1 to n do begin writeln ('Введите ',i,' число');Readln (mas[i]);end;Writeln ('Полученные числа ');for i:=1 to n dowriteln (mas[i]);Max:=mas[i];For i:=2 to n do if mas[i]>max then max:=mas[i];writeln ('Наибольшее число ',max);min:=mas[i];For i:=1 to n doif mas[i]
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт