Question

Даю 40 баллов! Решение задачи по информатике на Паскаль: Дан одномерный массив А(20). Заполнить его случайными целыми числами от –30 до 40. Найти количество элементов кратных числу 3 и заменить найденным количеством все четные элементы. Вывести на экран исходный и измененный массивы в плотном формате и найденное количество.

Answer 1

Ответ:

program task;

var A: array[1..20] of integer;

i, count, x: integer;

begin

randomize;

count := 0;

for i := 1 to 20 do begin

A[i] := random(71) - 30;

if A[i] mod 3 = 0 then

count := count + 1;

end;

for i := 1 to 20 do begin

if A[i] mod 2 = 0 then

A[i] := count;

write(A[i], ' ');

end;

writeln;

writeln('Count: ', count);

end.

Объяснение:

• Начиная с randomize;, команда randomize используется для инициализации генератора случайных чисел.
• count := 0; инициализирует переменную count нулём, которая используется для подсчета количества элементов, кратных 3.
• В цикле for i := 1 to 20 do , команда A[i] := random(71) - 30; используется для заполнения каждого элемента массива случайным числом от -30 до 40.
• В том же цикле, условная конструкция if A[i] mod 3 = 0 then count := count + 1; используется для проверки каждого элемента массива, который делится на 3 без остатка, и если это так, то увеличивается значение count на 1.
• write(A[i], ' '); используется для вывода каждого элемента измененного массива на экран.
• writeln; используется для перехода на новую строку после вывода всех элементов массива.
• writeln('Count: ', count); используется для вывода количества элементов, кратных 3 на экран.