Вопрос по информатике:
Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс. Найти сумму квадратов элементов нового массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 26.02.2015 17:51
- Информатика
- remove_red_eye 13958
- thumb_up 14
Ответы и объяснения 1
Var
mas, c: array[1..20]of real;
i, c_n: integer;
s: real;
begin
randomize;
for i := 1 to 20 do
begin
mas[i] := random(100) - 50;
if (mas[i] > 0) and (i mod 2 = 0) then begin
c_n := c_n + 1;
c[c_n] := mas[i];
write(c[c_n], ' ');
s := s + c[c_n] * c[c_n];
end;
end;
writeln();
writeln('S = ', s);
end.
- 27.02.2015 04:47
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.