Регистрация
katirina61171Rfn
01.01.2022 18:19
Информатика
Есть ответ 👍

извените что плохая камера у меня но разгледеть думаю можно заранее

104
165
Посмотреть ответы 1

Ответы на вопрос:

Olya555556
Olya555556
4,6(48 оценок)
Const n=50; var a,k: array[1..n] of integer; i,c: integer; begin randomize; writeln('введите число c: '); readln(c);   for i: =1 to n do  begin    a[i]: =random(10);   write(i,' ');   end;   writeln;     for i: =1 to n do  begin    if a[i] mod c=0 then   begin   write(a[i],' ');   end;   end;   end.

Популярно: Информатика