Вопрос по информатике:
7. Дан массив А из 20 элементов. Заменить отрицательные эле-менты массива на среднее арифметическое элементов массива. Результат вывести на печать.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.02.2015 21:42
- Информатика
- remove_red_eye 8506
- thumb_up 11
Ответы и объяснения 1
На паскаль:
var
i: integer;
sr: real;
a: array [1..20] of real;
begin
sr:=0;
for i := 1 to 20 do
begin
read(a[i]);
sr:=sr+a[i];
end;
sr:=sr/20;
for i := 1 to 20 do
if (a[i]<0) then a[i]:=sr;
for i := 1 to 20 do
write(a[i], ' ');
readln;
end.
- 06.02.2015 19:35
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.