Question

В двумерном массиве заменить все четные элементы на их квадраты, а нечетные удвоить

Answer 1

program _1;
const n=5;
m=5;
var v:array[1..n][1..m] of integer; 
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
if (v[i,j] mod 2) = 0 then v[i,j]:=sqr(v[i,j])
else v[i,j]:=2*(v[i,j]);
end;
end.