Решите в кумире или паскале (в кумире кнч буду больше рада) заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. вывести массив на экран. заполнить массив вводом с клавиатуры. если будет введено отрицательное число, программа возьмет его модуль.

//
// 1
//
var
  A: array [1..20] of integer;
  i: integer;
begin
  for i := 1 to 20 do
  begin
    if i mod 5 = 0 then
      A[i] := 1
    else
      A[i] := 0;
    write(A[i]:2);
  end;
end.

//
// 2
//
var
  A: array [1..5] of integer;
  i: integer;
begin
  for i := 1 to 5 do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    if A[i] < 0 then
      A[i] := abs(A[i]);
  end;
  for i := 1 to 5 do
    write(A[i]:2);  
end.