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.

Answer 2

Вот решение на языке Кумир:

pascalCopy code
program FillArray;
var
  arr: array [1..20] of integer;
  i: integer;
begin
  for i := 1 to 20 do
  begin
    if i mod 5 = 0 then
      arr[i] := 1
    else
      arr[i] := 0;
  end;
  
  writeln('Массив:');
  for i := 1 to 20 do
  begin
    write(arr[i], ' ');
  end;
end.

Эта программа заполняет массив arr 20 числами так, что каждый пятый элемент равен 1, а остальные равны 0. Затем она выводит этот массив на экран.

Если вы хотите решение для ввода с клавиатуры и взятия модуля отрицательного числа, вот соответствующий код на языке Кумир:

pascalCopy code
program FillArrayFromInput;
var
  arr: array [1..20] of integer;
  i, inputNumber: integer;
begin
  writeln('Введите 20 чисел:');
  for i := 1 to 20 do
  begin
    readln(inputNumber);
    arr[i] := abs(inputNumber); // берем модуль числа, если введено отрицательное
  end;
  
  writeln('Массив:');
  for i := 1 to 20 do
  begin
    write(arr[i], ' ');
  end;
end.

В этой программе мы просим пользователя ввести 20 чисел с клавиатуры. Затем мы берем модуль каждого числа с помощью функции abs, чтобы обработать отрицательные числа, и заполняем ими массив arr. После этого, мы выводим этот массив на экран.