Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 03.03.2016
Сообщений: 39
1

Составить блок схему к готовому коду

03.06.2016, 18:19. Просмотров 500. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const n=15;
var a:array [1..n] of byte;
i,j,k,max:integer;
begin
for i:=1 to n do a[i]:=Random(20);
for i:=1 to n do Write(a[i]:4);
Writeln;
i:=1;max:=0;
while (i<=n) do begin
j:=1; k:=0;
while (j<=n) do
 begin if (a[i]=a[j]) then inc(k); inc(j); end;
if (k>max) then max:=k; inc(i); end;
WriteLn('kol-vo: ',max);
end.
Помогите с блок схемой!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.06.2016, 18:19
Ответы с готовыми решениями:

Составить блок схему к готовому коду
program tmp; uses crt; const count=40; type arr=array of integer; var m,n:integer; V,F:arr; ...

Составить блок схему к готовому коду
Напишите пожалуйста блок-схему к задаче: const n_max = 100; var a, b: array of integer;...

Составить блок схему к готовому коду
помогите сделать блок схему.. Код: Uses CRT; Const m=6; n=5; var

Составить блок-схему по готовому коду
:cry:Доброе утро всем! Помогите пожалуйста создать на эту программу блок-схему! Очень срочно нужно!...

2
Модератор
60878 / 45695 / 31526
Регистрация: 18.05.2008
Сообщений: 109,950
03.06.2016, 19:41 2
В редакторе по коду
0
Миниатюры
Составить блок схему к готовому коду  
1 / 1 / 0
Регистрация: 03.03.2016
Сообщений: 39
03.06.2016, 20:10  [ТС] 3
Благодарю!!!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.06.2016, 20:10

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить блок схему к готовому коду
помогите с блок схемой пожалуста program aaa; uses crt; var a:array of real; ...

Составить блок схему к готовому коду
Здравствуйте, напишите пожалуйста блок-схему к готовой задаче : const nmax=100; var a:array of...

Составить блок схему к готовому коду
Uses crt; Var a : integer; i , N : byte; K : real; Begin clrscr; ...

Составить блок схему к готовому коду
Помогите сделать блок схему, кому не сложно uses crt; const n=10; var a:array of integer;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.