Вопрос школьника по предмету Информатика
Решить задачу на языке бэйсик.
Дан массив А из 20 элементов. Заменить положительные элементы массива на среднее арифметическое элементов массива. Результаты вывести на экран.
Ответ учителя по предмету Информатика
Var
a: array [1..20] of real;
i: integer;
m,s:real;
Begin
s:=0;
For i:=1 to 20 do
Read (a[i]);
For i:=1 to 20 do
s:=s+a[i];
m:=s/20;
For i:=1 to 20 do
if a[i]>=0 then
a[i]:=m;
For i:=1 to 20 do
write (a[i],’ ‘); end.
Похожие вопросы от пользователей
1) по-прежнему скучнo.
2) рядом с домом
Заранее спасибо!
Cu, SO3, H2, Fe2O3, Ca??
Напишите возможные уравнения реакций. Помогите пожалуйста
Согласно легенде, основателями Рима братья Ромул и Рем унаследовали власть от их отца Нумитора?
2) Найдите сумму сорока первых членов последовательности (bn) (b-нной), заданной формулой Bn = 4n-2.
3) Является ли число 30,4 членом арифметической прогрессии (An), в которой a1=11,6 и a15=17,2.
4) Найдите сумму всех натуральных чисел, кратных 7 и не превосходящих 150.
Сумным разговорит_ся что мёду напит_ся.2счастье в воздухе не вьёт_ся а руками достаёт_ся.3 на миру и работа спорит_ся. 4 всякий человек по делу узнаёт_ся. 5 умный любит учит_ся