Регистрация
MAMAV147
18.05.2020 02:20
Информатика
Есть ответ 👍

Сформировать массив, подсчитать количество элементов не превосходящих заданного числа n-задано с клавиатуры. найти их среднее арифметическое значение.

202
459
Посмотреть ответы 2

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

Danil21K
Danil21K
4,4(40 оценок)
Var a: array [1..20] of integer; s,k,i: integer; begin k: =0; s: =0; for i: =1 to n do read(a[i]); readln(n); for i: =1 to 20 do if a[i]< =n then begin k: =k+1; s: =s+a[i]; end; writeln('кол-во: ',k); writeln('средн.арифм.: ',s/k) end.
almaziksky311
almaziksky311
4,8(67 оценок)

var a: integer;

begin

write('введите двузначное число: ');  

readln(a);

if (a mod 10 = 6) or (a div 10 = 6) then writeln('в его составе есть цифры кратные 6')

else writeln('в его составе нет цифр кратных 6')

end.

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