Информатика, вопрос задал olimpiada27 , 9 лет назад

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

Ответы на вопрос

Ответил chesko999
0
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.
Новые вопросы