Question

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

Answer 1

Ответ:

var

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

 i: integer;

 find: boolean;

begin

 randomize;

 for i := 1 to 20 do

 begin  

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

   Write(a[i], ', ');

 end;

 WriteLn;

 for i := 1 to 20 do

 begin

   if (a[i] mod 3 = 0) and (a[i] <> 0) then

   begin

     WriteLn('Первое число в массиве, кратное 3, равно A[', i, '] = ', a[i]);

     find := true;

     break;

   end;

 end;

 if not(find) then WriteLn('В массиве нет чисел, кратных 3.');

end.

Объяснение: