Задача 15 (умножить четные столбцы на сумму мин и макс матрицы)

Посмотреть архив целиком
15) в матрице прямоугольной элементы чётных столбов умножить на сумма минмального и максимального элемента всей матрицы


program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
type mas=array[1..20,1..20] of integer;

procedure VVOD (var A:mas; var n,m:integer);
var i,j:integer;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
writeln('Vvedite kolichestvo stolbzov');
readln(m);
writeln('Vvedite matrizu');
for i:=1 to n do begin
for j:=1 to m do read (a[i,j]);
readln;
end;
end;

procedure POISK (var A:mas;n,m:integer);
var i,j,min,max,sum:integer;
begin
min:=a[1,1];
for i:=1 to n do
for j:=1 to m do if a[i,j]max:=a[1,1];
for i:=1 to n do
for j:=1 to m do if a[i,j]>max then max:=a[i,j];
sum:=max+min;
for i:=1 to n do begin
for j:=1 to m do if (j mod 2) = 0 then a[i,j]:=a[i,j]*sum;
end;
end;

procedure VIVOD (A:mas;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do write (a[i,j],' ');
writeln;
end;
end;


var n,m:integer;
A:mas;
begin
VVOD(A,n,m);
POISK(A,n,m);
VIVOD(A,n,m);
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.