Var i,k,n:integer;
a,b:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<0 then
begin
b[k]:=a[i];
k:=k+1;
end;
end;
write('Элементы: ');
for i:=1 to k-1 do write(b[i],' ');
writeln;
writeln('Колличество отрицательных=',k-1);
<span>end.</span>

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите плиз var mas : array [1 .. 10] of integer; i : integer; function f(n:integer):integer; begin f:=n xor 5; end; begin for

costarem [7]

Способ довольно простой, только надо задать mas[0], пусть оно будет 0
mas[1] = mas[1] + mas[0]*3 = mas[1] = 3
mas[2] = mas[2] + mas[1]*3 = mas[2] + 9 = 14 -> mas[2] = 14-9 = 5
и тд

#Ruby22
mas = [0, 3, 5, 5, 1, 2]
for i in 1..5
mas[i] += mas[i - 1] * 3
end
p mas

0 0

4 года назад

Почему появление письменности дало толчок развитию науки и культуры?

Stepa 7

Люди могли дольше хранить информацию и передовать ее

0 0

4 года назад

Все задания указаны в изображениях,все сделать с помощью программы PASCAL ABC NET помогите я в этом вообще не понимаю.

Alex07

Program 15_zadaha;
var
x, y: real;
begin
writeln('Введите значение Х'):
readln(x);
y:= 2*cos(x*3)/sin(x*3)-(1/(12*sqr(x)+7*x-5));
writeln('y= ',y);
end.

0 0

4 года назад