Составьте программу в Паскале пожалуйста: дан одномерный массив найдите разность величайшего

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),-50,50);
a.Println;
Writeln('Разность: ',a.Max-a.Min)
end.

Тестовое решение:
n= 15
28 -35 2 25 20 -48 47 24 1 9 17 24 -32 -41 -14
Разность: 95

Лилия 2019-07-12 00:06:43

спасибо, но это совершенно не то

Милена Игнасенкова 2019-07-12 00:14:14

Это программка на Паскале, которая делает то, что Вы написали в задании. А если это не то, что Вы ждали, то надобно указывать в задании, как конкретно писать.

Ковалгина Дарина 2019-07-12 00:16:06

просто это программа обязана решаться с помощью массива)

Елизавета 2019-07-12 00:22:37

Вы обязаны осознавать, что уровень и стиль программирования, принятый в вашем классе - они вовсе не единственные в мире и догадаться об их конкретике никто не может.

Камилла Кухалевская 2019-07-12 00:30:54

А она и решена с поддержкою массива. Переменная а - это массив, который создается при поддержки процедуры ArrRandom.

Дашенька 2019-07-12 00:31:46

Можно явно написать var a:array of integer:=ArrRandom(ReadInteger('n='),-50,50); только это ничего не изменит, просто код удлинит.

Дмитрий Мегрибанов 2019-07-12 00:39:29

Так что на будущее, если не устраивает сходственный код, явно указывайте версию Паскаля.

О проекте

Составьте программу в Паскале пожалуйста: дан одномерный массив найдите разность величайшего

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