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

var  a: array [1..100] of integer; i,n,min,max: integer; begin      read(n);       for i : = 1 to n do            read(a[i]);       min: =a[1];       max: =a[1];       for i: = 1 to n do begin            write(a[i],' ');             if max< a[i] then max: =a[i];             if min> a[i] then min: =a[i];       end;       writeln(min,max); end.

накопи́тель на жёстких магни́тных ди́сках или нжмд (. hard (magnetic) disk drive, hdd, hmdd), жёсткий диск, в компьютерном сленге «винче́стер» — устройство хранения информации, основанное на принципе магнитной записи. является основным накопителем данных в большинстве компьютеров.

в отличие
от «гибкого» диска (дискеты) , информация в нжмд записывается на жёсткие (алюминиевые или стеклянные) пластины, покрытые слоем ферромагнитного материала, чаще всего двуокиси хрома. в нжмд используется одна или несколько пластин на одной оси. считывающие головки в рабочем режиме не касаются
поверхности пластин прослойке набегающего потока воздуха, образующейся у поверхности при быстром вращении. расстояние между головкой и диском составляет несколько нанометров (в современных дисках около 10 нм [1]), а отсутствие механического контакта обеспечивает долгий срок службы устройства. при
отсутствии вращения дисков головки находятся у шпинделя или за пределами диска в безопасной зоне, где исключён их нештатный контакт с поверхностью дисков.

также, в отличие от гибкого диска, носитель информации совмещён с накопителем, приводом и блоком электроники и (в персональных компьютерах
в подавляющем количестве случаев) обычно установлен внутри системного блока компьютера.

pascal abc

program z1;  

var a,s: integer;   //описание переменных

begin

readln(a);   //вводим первое число

s: =0;   //начальное значение суммы

while a< > 0 do //условие ввода (ввод оканчивается нулем)

 
begin

    if (a mod 10=4) and (a mod 6=0) then s: =s+a;   //проверка двух условий:                           первая скобка - оканчивается на 5, вторая - кратно 6

    readln(a)
//заново вводим число

  end;

writeln(s)   //вывод суммы, когда весь цикл завершится

end.

p.s не особо понимаю, почему с таким вводом, такой ответ у тебя получается