Сформировать третью матрицу из элементов двух исходных

@Zhekk · Регистрация: 14.01.2014

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

Построчно ввести матрицу целых чисел 5х5 (любые целые числа), вторую матрицу заполнить случайными числами < 100 (матрица естественно тоже 5 на 5). Сформировать третью матрицу (тоже 5 на 5): каждый ее элемент принимает значение ‘истина’, если элемент первой матрицы больше соответствующего элемента второй, иначе - ‘ложь’.

Pascal

Program matrix;
uses crt;
const n=5;
var a,b:array[1..n,1..n] of integer;
    c:array[1..n,1..n] of boolean;
    i,j:byte;
begin
randomize;
writeln('1 матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:4)
   end;
  writeln
 end;
writeln('2 матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    b[i,j]:=random(100);
    write(b[i,j]:4)
   end;
  writeln
 end;
writeln('3 матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    c[i,j]:=a[i,j]>b[i,j];
    write(c[i,j]:6);
   end;
  writeln
 end;
end.

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

Опции темы