Вопрос:
Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS , имеющих четный индекс. Найти сумму квадратов элементов нового массива.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 24.06.2018 20:36
- Другие предметы
- remove_red_eye 17334
- thumb_up 18
Ответы и объяснения 1
Const n = 20;
var arrA, arrC: array[1..n] of real;
i, j: byte;
sum: real;
begin
randomize;
writeln('Array A:');
for i:=1 to n do begin
arrA[i] := random() * 10 - 5;
write(arrA[i]:6:2);
if i mod 10 = 0 then writeln;
end;
i := 2;
j := 0;
sum := 0;
while i <= n do begin
if arrA[i] > 0 then begin
j := j + 1;
arrC[j] := arrA[i];
sum := sum + arrC[j] * arrC[j];
end;
i := i + 2;
end;
writeln('Array C:');
for i:=1 to j do write(arrC[i]:6:2);
writeln;
writeln('sq.sum = ', sum:5:2);
end.
- 25.06.2018 05:37
- thumb_up 25
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Другие предметы.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
В данном разделе публикуются вопросы и ответы на них к непопулярным предметам.