Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
Var
a,y:integer;
begin
writeln('a=');
readln(a); {допустим что ввели значение 12}
if a>=5 then y:=2*a+5 else y:=a*a; {выполняется условие y:=2*a+5 ибо 12>=5}
writeln('y=',' ',y); {y=2*12+5 y=29}
readln*
end.
Короче ответ Г
.fla и .swf - форматы файла для флэш-анимаций. Создаются, просматриваются и редактируются с помощью приложения Adobe Flash.