Версия для печати темы

Автор: -Антон- 17.12.2006 18:36

Помогите составить блок-схему к задаче:
Дан массив nxm. Найти количество строк, в которых первый элемент совпадает с последним.

 
program pervaya;
const m=5;
n=4;
var ar: array[1..n,1..m] of integer;
i,j,kolvo:integer;
begin
randomize;
kolvo:=0;
{заполнение матрицы случайными числами и вывод ее на экран}
for i:=1 to n do
  begin
  for j:=1 to m do
    begin
    ar[i,j]:=random(5);
    write(ar[i,j],' ');
    end;
  writeln;
  end;
{подсчет подходящих строк}
for i:=1 to n do
  if ar[i,1]=ar[i,m] then
    inc(kolvo);
writeln(kolvo);
readln;
end.

Автор: klem4 17.12.2006 19:19

http://forum.pascal.net.ru/index.php?showtopic=4270