ЕС
Екатерина Степченкова
Найти сумму квадратов элементов массива, расположенных после первого положительного числа
pascal
pascal
найди индекс первого отр. числа, потом цикл от этого индекса до конца и суммируй квадраты
блин делайте домашку сами )
const
Max=16;
var
f:boolean;
i,r:integer;
arr:array[0..Max] of integer;
begin
randomize;
for i:=0 to Max do
begin
arr[ i ]:=random(100)-50;
Write(arr[ i ]);
end;
f:=false;
for i:=0 to Max do
begin
if f then
r:=r+sqr(arr[ i ]);
if arr[ i ]>=0 then f:=true;
end;
Write('Result=',r);readln;
end.
могут быть ошибки ибо просто катал от фонаря. . и ответы символы не все показывает.. .