Составить программу которая вводит массив из 10 частей и печатает разность

Составить программу которая вводит массив из 10 частей и печатает разность между максимальным и наименьшим значением. На Паскале, элементы целого типа

Задать свой вопрос
Кирилл Володских
Что означает которая вводит? вводит откуда? что за элементы, какого типа? и в конце концов какой яп?
Диана Зюзько
Паскаль, 10 элементов целого типа
1 ответ

Var i, max, min:Integer;

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

Begin

Max:=-1;min:=10;

For i:=1 to 10 do begin

A[i]:=random(10);

Write(' ', a[i]) ;

If a[i]gt;max then max:=A[i];

If a[i]lt;min then min:=a[i];

End;

Writeln;

Write(max-min) ;

End.

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


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

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

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

Войти на сайт