Через паскаль! тема: «поиск наибольшего или наименьшего элемента массива» написать программу, которая определяет наибольшее отрицательное целое число в массиве из 10 элементов. значения элементов массива вводятся пользователем. не использовать: const, count и другие, которые не по теме!

113

282

Посмотреть ответы 2

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

dstepin17

Информатика

4,8(1 оценок)

Var a: array[0..10] of integer; i,n,m: integer; begin m: =0; for i: =0 to 9 do begin writeln('введите ',i+1,' число'); readln(n); a[i]: =n; end; for i: =0 to 9 do begin if m> a[i] then m: =a[i]; end; writeln('самое большое отрицательное число в массиве : ',m); end.