Написать программу решения задания используя оператор цикла

@Ursawarrior · Регистрация: 25.10.2013

Студворк — интернет-сервис помощи студентам

Написать программу решения задания используя оператор цикла. Значения элементов массива ввести с клавиатуры.
Задание:
Найти наибольший отрицательный элемент массива B (n), где n Є [1;100]

Kodzaev · 05.12.2013, 19:19

Pascal

var
  b: array [1..100] of integer;
  i, n, max: integer;
 
begin
  max := -MAXINT - 1;
  repeat
    Write('Введите количество элементов [1..100]: ');
    Readln(n);
  until n in [1..100];
  Writeln('Введите элементы:');
  for i := 1 to n do
  begin
    Readln(b[i]);
    if (b[i] < 0) and (b[i] > max) then
      max := b[i];
  end;
  if max = -MAXINT - 1 then
    Writeln('Нет отрицательных чисел')
  else
    Writeln('Наибольший отрицательный = ', max);
  Readln
end.

@Ursawarrior 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 3
		1
	Написать программу решения задания используя оператор цикла 05.12.2013, 18:32. Показов 1263. Ответов 1 Метки нет (Все метки) Написать программу решения задания используя оператор цикла. Значения элементов массива ввести с клавиатуры. Задание: Найти наибольший отрицательный элемент массива B (n), где n Є [1;100] 0

Опции темы

Написать программу решения задания используя оператор цикла

Решение