Найти величину наибольшего из отрицательных чисел последовательности

@Klark73 · Регистрация: 30.03.2011

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

Дано целое n>0 и последовательность из n действительных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего из отрицательных чисел этой последовательности.

@marshal · 17.04.2011, 17:08

В смысле наибольшее по модулю?

Pascal

uses crt;
var a,m:real;i,n:integer;
begin
repeat
clrscr;
writeln('введите n');
readln(n);
until n>0;
for i:=1 to n do
begin
writeln('введите элемент ',i);
readln(a);
if a<0 then if m>a then m:=a;
end;
writeln('наибольшее отрицательное ',m);
end.

@Klark73 2 / 2 / 0 Регистрация: 30.03.2011 Сообщений: 66
		1
	Найти величину наибольшего из отрицательных чисел последовательности 14.04.2011, 19:56. Показов 1127. Ответов 1 Метки нет (Все метки) Дано целое n>0 и последовательность из n действительных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего из отрицательных чисел этой последовательности. 0

	17.04.2011, 17:08

Опции темы

Найти величину наибольшего из отрицательных чисел последовательности

Решение