Нужно решить на паскале

[AndreyG]

1) Одномерный массив:
1. Заполнить одномерный целочисленный массив случайными числами, все четные элементы заменить на 0, а нечетные на 1.
2. Дан массив А(n), состоящий из целых чисел. Найти количество и сумму тех элементов, которые делятся на 5 и не делятся на 7. Элементы массива вводятся с клавиатуры.

2) Двумерный массив:
1. Дана целочисленная прямоугольная матрица. Вывести ее на экран и определить количество четных элементов в каждом столбце.

[Morpho]

Сам-то пытался делать? Задачки-то простые...

Та, что с матрицей примерно так делается:
первый цикл выводит матрицу, второй цикл считает, сколько в столбце чётных чисел и записывает результаты в одномерный массив, где индекс элемента соответствует столбцу (а значение показывает, сколько там чётных чисел)

var
  A : array[1..N,1..N] of integer;
  counter : array[1..N] of integer;

for i:=1 to N do
begin
  for j:=1 to N do 
  begin
    write(A[i,j]);
  end;
  writeln;
end;

for i:=1 to N do counter[i]:=0;

for i:=1 to N do
begin
  for j:=1 to N do 
  begin
    if A[i,j] mod 2 = 0 then counter[i] := counter[i] + 1;
  end;
end;