дан двумерный массив в нем поменять четные числа на 0.
вот набросила код
код рабочий
однако небольшой косяк. Вместе с исходной матрицей паскаль распечатывает новую матрицу, ОДНАКО в новой матрице только заменившиеся нулями четные числа. КУДА ДЕЛИСЬ НЕЧЕТНЫЕ?? как их вернуть?
program ss;
uses crt;
const n=5;m=5;
var a: array[1..n,1..m] of integer;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln
end;
writeln;
for i:=1 to n do
begin
for j:=1 to m do
if a[i,j] mod 2=0 then begin
a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
readln
end.
НИЖЕ ПРЕДСТАВЛЮ СКРИН КОСЯКА!
М | Теги! Првила Форума, п.5, и правила раздела Задачи, п.2 Исправил.. |
М | Название! Правила Форума, п.4, и правила раздела Задачи, п.1. Исправил.. |