В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
zef3
zef3
22.06.2022 21:01 •  Информатика

ВАРИАНТ 1.
1. Дан массив из 10 целых чисел. Выведите на печать индексы элементов, кратных заданному числу п. 2. Ввести массив a[1], a[2] ,..., a[2] ,...,a[10] вещественного типа и найти среднее арифметическое положительных элементов.

Показать ответ
Ответ:
Dashocheg43
Dashocheg43
27.01.2023 07:12

1.

program p1;

var i, a :integer;

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

begin

writeln('Введи целое число');

readln(a);

write('индексы элементов, кратных заданному числу:');

for i := 1 to High(M) do

if i mod a = 0 then write(' ', i);

end.

2.
program p2;

var i :integer;

s, r :real;

M :array [1..10] of real;

begin

writeln('Вводи числа');

for i := 1 to High(M) do

begin

readln(M[i]);

s := s + M[i];

end;

r := s/High(M);

write('Среднее арифметическое:', r);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота