Var s, n: integer;
begin
s := 2;
for n := 2 to 5 do
s := n + s * 2;
write(s);
end.
Ответ
73
{ Free Pascal }
procedure Println(a:array of integer);
var
i:integer;
begin
for i:=0 to Length(a)-1 do Write(a[i],' ');
Writeln
end;
procedure Ex1(var a:array of integer; var nn,np:integer);
var
i:integer;
begin
nn:=0; np:=0;
for i:=0 to Length(a)-1 do
if a[i]<0 then begin a[i]:=0; Inc(nn) end
else
if a[i]>0 then begin a[i]:=1; Inc(np) end
end;
var
a:array of integer;
i,n,kp,kn:integer;
begin
Randomize;
Write('Количество элементов: '); Read(n);
SetLength(a,n);
for i:=0 to n-1 do a[i]:=Random(41)-20;
Println(a);
Ex1(a,kn,kp);
Writeln('Отрицательных ',kn,', положительных ',kp);
Println(a)
end.
Во вложении - пример работы программы.
const n=10;
var a:array [1..n] of integer;
i,x:integer;
begin
write('Введите число: ');
readln (x);
write('Массив: ');
for i:=1 to n do
begin
a[i]:=random(9)+1;
write(a[i]:2,' ')
end;
writeln;
for i:=1 to n do
if a[i]=x then writeln('Массив содержит число ',x,' номер этого элемента ',i)
end.
С клавиатуры вводится вещественное число. Если число, которое введено, меньше нуля, (т.е отрицательное), то на экран выводится текст "Отрицательное число", в противном случае (т.е при вводе числа больше или равного нулю) на экран выводится сообщение "Положительное число"