Консультация № 159476
03.02.2009, 11:45
0.00 руб.
0 4 1
Создать массив вещественных чисел. Выбрать среди отрицательных чисел наибольшее значение. Вывести результат работы на экран.Надо нарисовать блок-схему помогите пожалуйста!

Обсуждение

Неизвестный
03.02.2009, 11:53
общий
Создать массив вещественных чисел. Выбрать среди отрицательных чисел наибольшее значение. Вывести результат работы на экран. Помогите надо блок-схему нариисовать
давно
Профессор
401888
1232
03.02.2009, 12:08
общий
это ответ
Здравствуйте, 11nik11!
Решение с пояснениями в приложении.

Приложение:
uses crt;
const n=15; {размер массива}
var a:array[1..n] of real;{тип массива}
i:byte;{счетчик цикла}
max:real;
begin
clrscr;
randomize;
writeln('Massiv A:');
max:=-100;{за макс примем число, меньше которого у нас не будет}
for i:=1 to n do
begin
a[i]:=20*random-10;{случайные вещественные числа из инт.(-10,9)}
if (a[i]<0)and(a[i]>max)then max:=a[i];{}
write(a[i]:5:2);{выводим в строку, 5-количество позиций под число, 2-количество знаков после запятой}
end;
writeln;
write('Max otr=',max:0:2);{выводим результат}
readln
end.

давно
Профессор
401888
1232
03.02.2009, 12:18
общий
Забыл блок-схему приложить. Если дашь аську или е-мейл, вышлю.
давно
Профессор
401888
1232
03.02.2009, 12:22
общий
Вот загрузил сюда, не знаю скачается или нет.
URL >>Без пароля.
Схема составлена редактором, перерисуйте как у вас принято.
Форма ответа