Найти максимальный элемент среди отрицательных - Turbo Pascal
Формулировка задачи:
Дан массив целых чисел,найти максимальный элемент среди отрицательных.
Решение задачи: «Найти максимальный элемент среди отрицательных»
textual
Листинг программы
const n = 10; var a : array[1..n] of integer; i, max, k : integer; begin max := -32768; k := 0; writeln('вводим массив:'); for i := 1 to n do begin write('Элемент [', i, ']: '); readln(a[i]); if (a[i] < 0) and (a[i] >= max) then begin max := a[i]; inc(k) end end; writeln('Вы введи массив:'); for i := 1 to n do write(a[i]:6); writeln; if k <> 0 then writeln('максимальное из отрицательных: ', max) else writeln('отрицательных нет'); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д