Регистрация
XxXRePlayXxX
01.06.2020 03:11
Информатика
Есть ответ 👍

1) заполните массив q [7] случайными числами в интервале от 6 до 21. вывод - в строку через пробел.
2) заполните массив a первыми n натуральными числами, начиная с x (ввести x с клавиатуры). вывод - в строку через пробел.

111
251
Посмотреть ответы 1

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

dayanocha0080
dayanocha0080
4,6(83 оценок)
Var a: array[1..10] of integer; k,n,i: integer; begin  k: =0;   n: =0;   for i: =1 to 10 do  read(a[i]);   for i: =1 to 10 do  if a[i] mod 13=0    then    k: =k+1    else    n: =n+1;   writeln(k,' ',n); // k-делятся на 13 n-не делятся на13  readlnend.

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