От
Дан массив из n чисел. Вывести на экран количество элементов кратных 4, а так же сами эти элементы.

(Пример: ввод: n=6, a={2, 5, 8, 4, 12}; вывод: 3, 8, 4, 12)

Question

Информатика: От Дан массив из n чисел. Вывести на экран количество элементов кратных 4, а так же сами эти элементы. (Пример: ввод: n=6, a={2, 5, 8, 4, 12}; вывод: 3, 8, 4, 12)​

svpp · Accepted Answer

Решение на паскаль.
начало решения задач одинаковое, а дальше см. внизу

program xxx;
var b: array [1..6, 1..6] of integer;
i, j, s : integer;
begin
for i:= 1 to 6 do
for j:=1 to 6 do
b[i,j]:= random(131)-65;
writeln ('исходная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end;

задание 1.
s:=0;
for i:= 1 to 6 do
if b[i,3]>0 then s:=s+b[i,3];
writeln ('сумма положительных элементов 3-го столбца', s)
end.

задание 2.
i:=2;
while i<=6 do begin
  for j:= 1 to 6 do
  if b[i,j]<0 then b[i,j]:=0;
  i:=i+2
end;
writeln ('полученная матрица В:');
for i:=1 to 6 do
begin
for j:=1 to 6 do
write (b[i,j]:4);
writeln
end
end.

От Дан массив из n чисел. Вывести на экран количество элементов кратных 4, а так же сами эти элементы. (Пример: ввод: n=6, a={2, 5, 8, 4, 12}; вывод: 3, 8, 4, 12)​

MOGZ ответил

От
Дан массив из n чисел. Вывести на экран количество элементов кратных 4, а так же сами эти элементы.

(Пример: ввод: n=6, a={2, 5, 8, 4, 12}; вывод: 3, 8, 4, 12)