Решите в Кумире или паскале (в кумире кнч буду больше рада) Заполнить массив 20-ю числами...

Question

Решите в Кумире или паскале (в кумире кнч буду больше рада)

Заполнить массив 20-ю числами так, что каждый пятый элемент был равен 1, остальные равны 0. Вывести массив на экран.

Заполнить массив вводом с клавиатуры. Если будет введено отрицательное число, программа возьмет его модуль.

Answer 1

// ===================================
// 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.