valentindolgiy,
Цитата valentindolgiy (
)
задана матрица n(5,8). сформировать из нее одномерный массив элементов матрицы n, кратных трем.
Код
program untitled;
uses crt;
var a[1..5,1..8] of integer;
var b[1..40] of integer;
var copy: integer;
BEGIN
copy := 1;
writeln('Введит массив');
for i:=1 to 5 do begin
for j:=1 to 8 do begin
write('Введите элемент', i, ' ', j, ' ');
readln(a[i,j]);
if ( (a[i,j] mod 3) = 0 ) then begin
b [copy]:= a[i,j];
copy := copy + 1;
end;
end;
end;
END.