Помогите пожалуйста с двумя задачами на паскале:
1)Составить блок-схему и программу подсчета суммы вводимых элементов до первого положительного числа на базе цикла с постусловием.
2)Даны 10 чисел, вывести те из них, которые являются полными квадратами. Составить блок-схему и программу.
Очень буду благодарен

Ответ:

Объяснение:

1) program z1;

var a,sum:integer;

begin

a:=0;

sum:=0;

while (a<0) or (a=0) do

begin

sum:=sum+a;

readln(a);

end;

writeln(sum);

end.

2) program z2;

const N = 10;

var i:integer;

var b,d:real;

var a:array[1..N] of integer;

begin

for i:=1 to N do

readln (a[i]);

for i:=1 to N do

write(a[i]:4);

writeln;

for i:=1 to N do

begin

b:=sqrt(a[i]);

d:=frac(b);

if d=0 then

write (a[i]:4);

end;

end.