Регистрация
Bluka23
16.02.2021 01:14
Информатика
Есть ответ 👍

ПОСТАВЛЮ масимальную оценку.

158
491
Посмотреть ответы 1

Ответы на вопрос:

VicusiaKoval
VicusiaKoval
4,4(41 оценок)
Type mas=array [1..100] of integer ; var a: = max; i, n, min , max, b : integer; begin writeln ('n='); readln (n) ;     write ('a[1]= ');     readln (a [1]);     max : =a[ 1 ]; min : =a[ 1 ]; for i: =2 to n do   begin   write('a[',i,']= ');   readln(a[i]);   end;         for i: =1 to n do     begin       if a[ i ]> max then max : =a[ i ];       if a[ i ]< min then min : =a[ i ];     end;   b: = max - min ; writeln (b) ; writeln; end. делал в текстовом файле (паскаля нет).

Популярно: Информатика