Заполнить двумерный массив 3 на 4 с клавиатуры

@саша_77 · Регистрация: 27.11.2013

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

Заполнить двумерный массив 3 на 4 с клавиатуры. Вывести «ДА» , если значение первого столбца совпадают со значениями послед-него столбца.

Pascal

Var
Y,I : Integer;
Mas : Array[1..3,1..4] of Integer;
Begin
For I:=1 To 3 Do
For Y:=1 To 4 Do
Readln(mas[i,y]);
For I:=1 to 3 Do
Begin
For y:=1 to 4 Do
if  i=y then  mas[i,1]:=mas[i,4];
write(mas[i,y],'  ');
Writeln;
End;
End.

@ildwine · 28.11.2013, 06:59

Pascal

Var
  Y,I : Integer;
  Mas : Array[1..3,1..4] of Integer;
  f : boolean;
Begin
  f := false;
  {заполнение}
  For I:=1 To 3 Do
    For Y:=1 To 4 Do
    begin
      write('MAS[', i, ',', y, '] = ');
      Readln(mas[i,y])
    end;
  {выводим}
  For I:=1 to 3 Do
  Begin
    For y:=1 to 4 Do
      write(mas[i,y]:6);
    writeln
  end;
  {проверяем условие}
  for i := 1 to 3 do
    if mas[i,1] = mas[i,4] then f := true
    else
    begin
      f := false;
      break
    end;
  if f then writeln('ДА') else writeln('НЕТ')
end.

	28.11.2013, 06:59

Опции темы