31.05.2008, 15:02
общий
это ответ
Здравствуйте, Кочкарев Владислав Геннадьевич!
код в приложении, функция kv проверяет не является ли квадратом i, i=1 квадратом она тоже не считает. Функция summa считает сумму элементов a, если i не прошло проверку kv
Приложение:
program www;constN=20;vara:array [1..N] of integer;i,j:integer;s,l:real;function kv:boolean;varkvad:boolean;begins:=sqrt(i);j:=trunc(s);if j-s<>0 then kvad:=false else kvad:=true;if i=1 then kvad:=false;kv:=kvad;end;procedure summa;beginl:=0;for i:=1 to N doif not kv then l:=l+a[i];end;beginrandomize;for i:=1 to N dobegina[i]:=random(100);write(a[i],‘ ‘);end;writeln;summa;writeln(‘symma: ‘,l:4:0);readln;end.