Найти максимальный элемент среди отрицательных - Turbo Pascal

Формулировка задачи:

Дан массив целых чисел,найти максимальный элемент среди отрицательных.

Код к задаче: «Найти максимальный элемент среди отрицательных - 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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.933 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы