Question

Написать программу, результатом которой является число кратное 3. поиск осуществляем из массива в 20 чисел (числа от -20 до 20) Pascal

Answer 1

Ответ:

program z1;

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

i,k,ch: integer;

begin

randomize;

k:=0;

ch:=0;

write('Массив: ');

for i := 1 to 20 do

begin

a[i] := random(41) - 20;

write(a[i],' ');

if a[i] mod 3 = 0 then

begin

k:=1;

ch:=a[i]

end

end;

writeln;

if k=0 then write('В массиве нет чисел, кратных 3')

else write('Число кратное 3: ',ch)

end.

Объяснение:

Число 0 кратно любому натуральному числу

Answer 2

Вот пример программы на языке Pascal, которая находит число в массиве из 20 чисел (от -20 до 20) и выводит первое найденное число, которое кратно 3:

pascalCopy code
program FindMultipleOf3;
var
  numbers: array[1..20] of integer;
  i: integer;
begin
  // Заполнение массива случайными числами от -20 до 20
  randomize;
  for i := 1 to 20 do
    numbers[i] := random(41) - 20;

  // Поиск числа, кратного 3
  for i := 1 to 20 do
  begin
    if numbers[i] mod 3 = 0 then
    begin
      writeln('Первое число, кратное 3, в массиве: ', numbers[i]);
      break; // Выход из цикла после нахождения первого числа
    end;
  end;

  readln;
end.

Эта программа создает массив из 20 случайных чисел от -20 до 20 и затем ищет первое число, кратное 3, в этом массиве. Если такое число найдено, оно выводится на экран.