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

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

Задать свой вопрос
Кристина Паппэ
На каком языке?
1 ответ

var k,i:integer;

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

begin

randomize;k:=0;

for i:=1 to 16 do  

begin

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

write(a[i],' ');

if a[i] mod 3 = 0 then

k:=k+1;

end;

if kgt;0 then

writeln('YES');

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт