Составьте программу которая формирует массив из шестнадцати случайных целых чисел от - 20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трём

Question

Информатика

Юлий

16 ноября, 01:25

Составьте программу которая формирует массив из шестнадцати случайных целых чисел от - 20 до 20 и определяет, есть ли в этом массиве хотя бы одно число, кратное трём

+1

Ответы (2)

Знаете ответ?

Олимпий · Answer 1

var

a: array [1 ... 16] of integer; / / Массив из 16 целых чисел

i: integer;

b: boolean; {Логическая переменная (найдено ли хотя бы одно число, кратное трем) }

begin

b: = false; / / Ни одного числа, кратного трем еще не найдено

write ('Исходный массив: ') ;

for i: = 1 to 16 do {Заполняем исходный массив случайными числами от - 20 до 20 и распечатываем его}

begin

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

write (a[i], ' ') ;

end;

writeln;

for i: = 1 to 16 do / / Определяем, есть ли в массиве хотя бы одно число, кратно трём, и если есть, то выходим из цикла

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

begin

writeln ('В массиве есть хотя бы одно число, кратное трём') ;

b: = true;

break;

end;

if b = false then writeln ('В массиве нет ни одного числа, кратного трём') ;

end.

Если все правильно, отметь решение как лучшее)

Сигизмунд · Answer 2

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

i, k:integer;

begin

for i:=1 to 16 do begin a[i]:=random (41) - 20; write (a[i],' ') ; end;

for i:=1 to 16 do if (a[i] mod 3=0) and (a[i]0) then begin writeln ('est') ; k:=1; break; end;

if k1 then writeln ('net') ;

end.