![]() |
![]() ![]() |
![]() |
wiktormad |
![]()
Сообщение
#1
|
Группа: Пользователи Сообщений: 2 Пол: Мужской Реальное имя: wiktor Репутация: ![]() ![]() ![]() |
помогите составить пожалуйста по тексту программы блок- схему..
Вот программа: Дан двумерный массив, содержащий MxN элементов. Составьте алгоритм (блок- схему) и паскаль программу решения задачи: определить число положительных, отрицательных и нулевых элементов массива. program mas; uses crt; var n, m, i, j, null, pol, otr:integer; x:array[1..100,1..100] of integer; begin clrscr; randomize; write('Ввести число строк --> '); readln(n); write('Ввести число столбцов --> '); readln(m); writeln('Исходная матрица :'); writeln('-----------------------'); for i:=1 to n do begin for j:=1 to m do begin x[i,j]:=random(100)-50; write(x[i,j]:4); end; writeln; end; null:=0; pol:=0; otr:=0; for i :=1 to m do for j:= 1 to n do begin if (x[ i , j ] = 0) then null:= null + 1 else if (x[ i , j ] > 0) then pol:= pol + 1 else otr:= otr + 1; end; writeln('null= ',null,' pol= ',pol,' otr= ',otr); writeln('konec'); readln; end. Сообщение отредактировано: wiktormad - 13.04.2013 10:53 |
![]() ![]() |
![]() |
Текстовая версия | 8.09.2024 4:21 |