1. Информатика
  2. Напишите программу, которая

Напишите программу, которая находит среднее арифметическое всех элементов массива, которые делятся на 3 и заканчиваются на 1.

Liliyaph Liliyaph    3   04.03.2022 08:46    18

Ответы
eldarosmanov eldarosmanov  04.03.2022 08:50

var b,c,i:integer;

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

begin

for i:=1 to 10 do

begin

a[i]:=random(10);

end;

for i:=1 to 10 do

c:=c+a[i];

b:=c div 10;

for i:=1 to 10 do

writeln(a[i]);

writeln('srednee ',b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
thrasher7777 thrasher7777  09.08.2019 09:10
Статья набранная на компьютере содержит 8 страниц на каждой странице 40строк в каждой строке 64 символа.информацыонный обьем статьи составляет 25кбайт.определите сколько бит...
catikis catikis  20.05.2020 23:31
Опредилите значение переменной s после выполнения фрагмента алгоритма S:=0 нц для i от 1 до 7 S:=S+i*i кц...
Пушка1244 Пушка1244  20.05.2020 23:30
3. Як виконати копіювання (переміщення) даних з використанням Буфера обміну?​...
Iekul Iekul  03.02.2021 20:44
Дан целочисленный массив из 20 элементов. Элементы могут принимать значения от 0 до 100 – , полученные на ЕГЭ. Напишите программу, которая определяет и выводит средний учащихся,...
sunksy sunksy  03.02.2021 20:47
Ребят нужна Выберите из списка форматы текстовых файлов и напишите, в каких программах создаются эти документы a) ODTb) GIFc) TXTd) JPEGe) DOCf) PDFg) RTFh) HTMLi) EXEj) BMP​...
катя5085 катя5085  03.02.2021 20:53
Дан целочисленный массив из 30 элементов. Элементы массива могут принимать значения от –1000 до 1000. Напишите программу, которая находит и выводит среднее арифметическое...
shayukalena shayukalena  03.02.2021 20:53
Создать HTML-страницу со структурой документа. Проверить наличие кодировки utf-8 в теге meta. Осмысленно заполнить тег . Отформатировать текст в соответствии с макетом (скриншот...
DelorenzyGang DelorenzyGang  03.02.2021 20:54
1. Как вы понимаете «тип данных»? 2. Какие типы переменных вам известны? 3. Какой промежуток числовых значений определяет целый тип? 4. Какие значения определяют символьный...
замира59 замира59  03.02.2021 20:55
Дано целое положительное число a.Требуется используя цикл ДО,вычислить произведение чисел для натурально числа N^ p=a*(a+1)*(a+2)*...*(a+N) Выполнить проверку для чисел 3)a=3...
dia651 dia651  03.02.2021 20:56
Найти разность чисел х и у. Если полученная разность окажется меньше сотни, то в ответе напечатать Надо , а в противном случае напечатать Не надо ....

Популярные вопросы