28.05.2013, 09:50 | #1 (permalink) |
Новичок
Регистрация: 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) |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|