Блок схему поспособствуйте нарисовать

@TheHater · Регистрация: 05.06.2014

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

Pascal

const
mmax = 10;
nmax = 10; 
var
a:array [1..nmax,1..mmax] of integer;
b:array [1..mmax] of integer;
n,m,i,j,k,c: integer;
 
BEGIN
n:= 11;
m:= 11;
while (n > nmax)or(m > mmax)or(n < 1)or(m < 1) do
begin
  writeln('Введите размерность массива');
  readln(n,m);
  writeln ('Введите число по правилу которого будет формироваться массив');
  readln(k);
end;
 
for i:= 1 to n do
begin
  for j:= 1 to m do
  begin
    a[i,j]:= random(10);
    write(a[i,j]:3);
  end;
writeln();
end;
 
writeln();
 
for i:= 1 to n do
  begin
  c:= 0;
  for j:= 1 to m do
      if a[j,i] > k then c:= c+1;
  b[i]:= c;
  end;
for i:= 1 to n do
  write(b[i]:3);
writeln();
 
END.

@Samhain · 13.06.2014, 20:58

TheHater,

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	13.06.2014, 20:58	2
	TheHater, Миниатюры 0