Дан массив MAS вещественного типа…

Question

Дан массив MAS вещественного типа, содержащий 20 положительных и отрицательных элементов. Сформировать массив С из положительных элементов массива MAS, имеющих четный индекс. Найти сумму квадратов элементов нового массива.

Answer 1

76

besttehnika

25 мая 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: