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

Question

Информатика

Оксана

24 мая, 18:06

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

+4

Ответы (1)

Знаете ответ?

Альбиныч · 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.