Дан двумерный массив размерностью n*m. Уменьшить в два раза все четные элементы массива.(Помогите сделать программу на паскале).
Дан двумерный массив размерностью n*m. Уменьшить в два раза все четные элементы массива.(Помогите сделать программу на паскале).
Гость
Ответ(ы) на вопрос:
Гостьconst NN=50;
var
a:array [1..NN,1..NN] of integer;
i,j,m,n:integer;
begin
write('Введите n: ');
readln(n);
write('Введите m: ');
readln(m);
for i:= 1 to n do
for j:= 1 to m do
readln(a[i,j]);
for i:= 1 to n do
for j:= 1 to m do
if a[i,j] mod 2 =0 then a[i,j]:=a[i,j] div 2;
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j],' ');
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы