Прямоугольные матрицы

@Simorg · Регистрация: 14.05.2019

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

Помогите решить задачку, буду благодарен!

Ввести двумерный массив $https://www.cyberforum.ru/cgi-bin/latex.cgi?A_{N}_*_{M}$ . Каждый элемент в массиве больший 7 домножить на результат целочисленного деления этого элемента на 7. Массив вывести до и после преобразования

@WildDen · 15.05.2019, 18:34

Pascal

Uses Crt;
const
n=4;
m=5;
var
a: array [1..n, 1..m] of integer;
i,j:byte;
begin
for i:=1 to n do 
for j:=1 to m do
a[i,j]:=random(10);
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
for i:=1 to n do begin
for j:=1 to m do 
if a[i,j]>7 then begin
a[i,j]:=a[i,j]*(a[i,j] mod 7);
end; end;
writeln;
for i:=1 to n do begin
for j:=1 to m do 
write(a[i,j]:4);
writeln;
end;end.

@Simorg 0 / 0 / 0 Регистрация: 14.05.2019 Сообщений: 16
		1
	Прямоугольные матрицы 15.05.2019, 16:49. Показов 985. Ответов 1 Метки нет (Все метки) Помогите решить задачку, буду благодарен! Ввести двумерный массив $https://www.cyberforum.ru/cgi-bin/latex.cgi?A_{N}_*_{M}$ . Каждый элемент в массиве больший 7 домножить на результат целочисленного деления этого элемента на 7. Массив вывести до и после преобразования 0

	15.05.2019, 18:34

Прямоугольные матрицы

Решение