Информатика, опубликовано 27.01.2023 07:11
ВАРИАНТ 1.
1. Дан массив из 10 целых чисел. Выведите на печать индексы элементов, кратных заданному числу п. 2. Ввести массив a[1], a[2] ,..., a[2] ,...,a[10] вещественного типа и найти среднее арифметическое положительных элементов.
Ответ оставил: Гость
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.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01