Регистрация
vladpaskevits
09.10.2022 02:53
Информатика
Есть ответ 👍

Написать программу на языке дан одномерный массив а(n). если все элементы этого массива (вектора) образуют прогрессию, то найти среднее арифметическое элементов вектора кратных пяти.

161
417
Посмотреть ответы 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.

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