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

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

13.01.2014, 21:05. Показов 282. Ответов 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.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.01.2014, 21:05
Ответы с готовыми решениями:

Составить блок схему по программе
Помогите пожалуйста составить блок схему по этой проге: Const n=2; Type matr=array of real;...

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

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

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

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.01.2014, 21:05

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

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

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

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

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


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

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

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