Помогите составить блок-схему

Olga · 28.05.2013, 09:50

Пожалуста помогите составить блок-схему. Заранее спасибо.
uses crt;
var i,d,o,n,m:integer;
a:array[1..100] of integer;
begin
readln(n);
randomize;
for i:=1 to n do a[i]:=random(101)-50;
for i:=1 to n do begin
if a[i] < 0 then o:=o+a[i]
else inc(d);
if a[i] = 0 then inc(m);
end;
for i:=1 to n do write(a[i],' ');
writeln;
writeln('null = ',m);
writeln('otr = ',o);
writeln('pol = ',d);
readln;
end.

Léon · 28.05.2013, 11:18

Программа для рисования блок-схем

28.05.2013, 09:50	#1 (permalink)
Olga Новичок Регистрация: 28.05.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите составить блок-схему Пожалуста помогите составить блок-схему. Заранее спасибо. uses crt; var i,d,o,n,m:integer; a:array[1..100] of integer; begin readln(n); randomize; for i:=1 to n do a[i]:=random(101)-50; for i:=1 to n do begin if a[i] < 0 then o:=o+a[i] else inc(d); if a[i] = 0 then inc(m); end; for i:=1 to n do write(a[i],' '); writeln; writeln('null = ',m); writeln('otr = ',o); writeln('pol = ',d); readln; end.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

28.05.2013, 09:50
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	По содержанию ваша тема имеет сходства с данными обсуждениями Помогите составить блок-схему Помогите, пожалуйста, составить блок-схему алгоритма программы Помогите, пожалуйста, составить блок схему к задаче

28.05.2013, 11:18	#2 (permalink)
Léon С# - learn or die Регистрация: 17.12.2011 Сообщений: 2,438 Записей в дневнике: 8 Сказал(а) спасибо: 21 Поблагодарили 49 раз(а) в 11 сообщениях Репутация: 19701	Программа для рисования блок-схем

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070