Регистрация
12345Serik
24.11.2020 06:43
Информатика
Есть ответ 👍

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

153
497
Посмотреть ответы 2

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

Martina17
Martina17
4,8(24 оценок)

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.

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

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