1) С клавиатуры последовательно вводятся размеры матрицы и сама матрица целых чисел. Выведите матрицу. Замените все элементы второго столбца на 5. Выведите измененную матрицу.
2) С клавиатуры последовательно вводятся размеры матрицы и сама матрица целых чисел. Выведите матрицу. Замените все элементы третьей строки на 4. Выведите измененную матрицу.
3) С клавиатуры последовательно вводятся размер квадратной матрицы и сама матрица целых чисел. Выведите матрицу. Замените все элементы главной диагонали на противоположные числа. Выведите измененную матрицу.
Язык - Паскаль
Заранее огромное спасибо! Обязательно выберу лучший ответ!)
Другие языки программирования и технологии
Помогите пожалуйста с заданием!!!
1)
program p1;
var i,j,n,m:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы (<=10x10), разделив их пробелом: '); readln(n,m);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to m do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
if m>=2 then for i:=1 to n do a[i,2]:=5;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
2)
program p2;
var i,j,n,m:integer; a:array[1..10,1.120]of integer;
begin
write('Введите размеры матрицы (<=10x10), разделив их пробелом: '); readln(n,m);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to m do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
if n>=3 then for j:=1 to m do a[3,j]:=4;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
3)
program p3;
var i,j,n:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размер квадратной матрицы (<=10): '); readln(n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
for j:=1 to n do a[j,j]:=-a[j,j];
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
program p1;
var i,j,n,m:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размеры матрицы (<=10x10), разделив их пробелом: '); readln(n,m);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to m do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
if m>=2 then for i:=1 to n do a[i,2]:=5;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
2)
program p2;
var i,j,n,m:integer; a:array[1..10,1.120]of integer;
begin
write('Введите размеры матрицы (<=10x10), разделив их пробелом: '); readln(n,m);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to m do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
if n>=3 then for j:=1 to m do a[3,j]:=4;
for i:=1 to n do begin for j:=1 to m do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
3)
program p3;
var i,j,n:integer; a:array[1..10,1..10]of integer;
begin
write('Введите размер квадратной матрицы (<=10): '); readln(n);
writeln('Введите значения элементов по строкам, разделяя элементы строки');
writeln(' пробелами и заканчивая ввод каждой строки нажатием Enter'); writeln;
for i:=1 to n do
begin write('Строка ',i:2,': '); for j:=1 to n do read(a[i,j]); readln end;
writeln;
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
for j:=1 to n do a[j,j]:=-a[j,j];
for i:=1 to n do begin for j:=1 to n do write(a[i,j]:8); writeln end; writeln;
writeln('Для выхода нажмите Enter'); readln
end.
Ринат Ханов
100% правильность? Вы информатик? :)
Ринат Ханов
В любом случае - спасибо большое!)
Похожие вопросы
- добрый вечер!помогите пожалуйста решить задание
- Помогите пожалуйста с Заданием по Паскалю!
- Помогите пожалуйста с заданиями по Pascal
- Помогите пожалуйста решить задание (Язык Паскаль).
- Здравствуйте! помогите пожалуйста выполнить зачётные задания по программированию на Pascal
- Всем привет! Помогите, пожалуйста, создать блок - схему к следующему коду и заданию. Заранее большое спасибо!
- Очень срочно нужна помощь в написании кода С++. Всё не вмещается, поэтому задание в пояснении. Помогите, пожалуйста!!
- помогите решить 2 задание на pascalABC
- помогите пожалуйста с 3 заданием, С++
- Помогите пожалуйста с решением задания на с++