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

13.01.2014, 21:05. Показов 430. Ответов 0

Метки нет (Все метки)

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

надо составить блок-схему к этой программе

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program mas;
var A:array[1..100,1..100] of integer; {переменная массива}
 i,j,n:integer; {переменные для циклов}
 s,kol:integer; {переменные суммы и кол-ва}
begin
 write ('Введем размер массива А');
 readln (n); {считываем размер массива}
 for i:=1 to n do
 for j:=1 to n do begin
 write ('A[',i,',',j,']='); 
 readln (A[i,j]); 
end; {считываем сам массив}
 write ('Введенный массив А=');
 for i:=1 to n do 
begin 
 writeln;
 for j:=1 to n do 
 write (A[i,j]:3,' '); {выводим массив на экран}
end; 
 s:=0; 
 kol:=0; {сумме и кол-ву присваиваем изначально нули}
 for i:=1 to n do
 for j:=1 to n do {циклами проходим по матрице}
 if (A[i,j]>0) and (i<j) then {прописываем условия положительные и выше диагонали}
begin 
 inc(kol); 
 s:=s+A[i,j]; 
end; {сумму и кол-во  увеличиваем}
 writeln;
 writeln('Сумма= ',s); {выводим на экран сумму}
writeln('Колличество= ',kol);{выводим на экран кол-во}
 readln;
end.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

13.01.2014, 21:05

Ответы с готовыми решениями:

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real; Var A,B,C:matr; i,j,m:integer; ...

Составить блок-схему к программе
Program kursovaya; const n = 12; m = 12; k1 = -50; k2 = 50; type matr = array of integer; mas = array of integer; var ...

Составить блок схему по программе
Текст задачи: Зашифровать строку 121-го символа в матрицу 11 х 11 по спирали, строку считывать из файла input.txt, результат записать в...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

13.01.2014, 21:05

Помогаю со студенческими работами здесь

Составить блок-схему по программе
составить блок схему по программе Program N_2; uses crt; const n = 15; var x : array of real;

Составить блок схему по программе
составить блок схему по программе Program N_3; uses crt; var s:string; i,k,mx,mn:byte; begin writeln('Введите текст,...

Составить блок-схему по программе
составить блок схему по программе Program N_4_1; uses crt; var a:array of integer; n,i,k,j:integer; begin ...

Составить блок- схему к программе!
Program hhh; Type zapis= Record; Shifr: Integer; Avtor: String; Name: String; ...

Составить блок-схему к программе
y=sin(cos(x+3)), y>0. Найти колличество значений х при которых y>0 Нужно сделать блок схему!!!

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Наверх