В двумерном массиве заменить все четные элементы на их квадраты, а нечетные удвоить
В двумерном массиве заменить все четные элементы на их квадраты, а нечетные удвоить
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы