Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число

@July1609 · Регистрация: 18.06.2012

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

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

@droider · 06.11.2012, 22:12

Pascal

program posl;
var
i, n:integer;
m:array of real; max:real;
begin
Write('кол-во членов последовательности n=');
Read(n);
SetLength(m, n); //задаем размерность
Writeln('Введите элементы последовательности');
for i :=0 to n-1 do
begin 
Readln(m[i]);//ввод элементов
end;
 for i :=0 to n-1 do
 if m[i]<0 then 
 begin
 max :=m[i]; 
 break;
 end;
 if m[i]>max then max :=m[i];
Writeln;
Writeln('Наибольшее значение из отрицательных чисел ',max);
readln;
end.

@July1609 1 / 1 / 0 Регистрация: 18.06.2012 Сообщений: 20
		1
	Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число 06.11.2012, 18:32. Показов 5928. Ответов 1 Метки нет (Все метки) Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего среди отрицательных чисел этой последовательности 0

Опции темы