Найти максимальный элемент среди отрицательных - 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.

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы