procedure MatrA(var a: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end;
procedure MatrB(var b: mass); var i, j: integer; begin for i := 1 to n1 do for j := 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end;
procedure Sum(a, b: mass; var c: mass); var i, j: integer; begin for i := 1 to n do for j := 1 to m do c[i, j] := a[i, j] + b[i, j]; end;
begin writeln('Введите n,m матрицы A'); readln(n, m); MatrA(a); writeln('Введите n,m матрицы B'); readln(n1, m1); MatrB(b); if (n1 <> n) and (m1 <> m) then writeln('Матрицы сложить нельзя') else begin Sum(a, b, c); writeln('A+B'); for i := 1 to n do begin for j := 1 to m do write(c[i, j]:1:3, ' '); writeln end end; readln; end.
Я всё вижу по глазам
Что ты хочешь мне сказать
(На-на-на-на, а-а-а)
Я не буду тебя знать, а ты меня
(Ты меня, ты меня, ты меня, ты меня)
И мы друг друга (Ты меня)
Под ногами лёд, и в сердце лёд
В стакане лёд, я не помню кто я
Душит мороз, я такой холодный
Я такой холодный!
Я читаю по губам
Мне нечего сказать
(На-на-на-на, а-а-а)
Я не вижу смысла врать (а-а)
Мне хватит слов, что я сказал
(Не вижу смысла врать)
В 7:30 утра автобус врезался в автомобиль марки Suzuki
И какое-то время, буквально тащил его, по ходу движения
Как подтвердили в ГИБДД
Одиннадцатилетняя девочка — пассажирка Suzuki погибла в огне
Где находилась её мама, которая пыталась ребенка
Что же случилось — ещё предстоит выяснить
Следователи сейчас проводят проверку