Подскажите как составить программу. Спасибо

Question

Задание 1 
Составьте программу на языке программирования Паскаль для обработки массива из 12 вещественных чисел. Входные данные для значений элементов массива задайте самостоятельно. Вычислите количество элементов массива с нечётными номерами на промежутке [5,1; 32,4]. 
  
Задание 2 
Разработайте схему алгоритма и программу обработки двумерного массива. Определите номера столбцов двумерного массива, которые имеют нулевые элементы. Входные данные для элементов массива задайте самостоятельно. Предусмотрите наличие положительных, отрицательных, а также равных нулю элементов. Размерность массива 3 × 4.  
  
Программная реализация обязательна. На проверку нужно прислать коды программ и результаты работы в виде скриншота окна программы Паскаль.

mr_fantom_42 · Accepted Answer

1: ## ReadArrReal(12)
.Count((x,i)->i.IsOdd and (x in 5.1..32.4)).Print;
2: var i,j:integer; x: array [0..2,0..3] of integer; f:boolean;
begin
  
  for i:=0 to 2 do
    for j:=0 to 3 do
      read(x[i,j]);
  for j:=0 to 3 do
  begin
    f:=true;
    for i:=0 to 2 do
      if x[i,j]<>0 then f:=false;
    if f=true then write(j+1);
    end;
end.