2.1 Составить псевдокод функции x +1 npux < 0 x-2 npu x 20

на отрезке [а; b], если а = -2, h = 0,2, b = a +h*(n+1), n = 5.

Question

Информатика: 2.1 Составить псевдокод функции x +1 npux 0 x-2 npu x 20 на отрезке [а; b], если а = -2, h = 0,2, b = a +h*(n+1), n = 5. ​

natalyiphonep0725u · Accepted Answer

//PascalABC.Net 3.2
{1}
begin
var a:=readArrinteger('Вводите: ', readinteger('n ='));
write ('Ср. арифметическое: ', a.Average);
end.

{2}
begin
var a:=readarrinteger('Водите: ', readinteger('n ='));
var sum:=0;
for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i];
write ('Сумма: ', sum);
end.

{3}
begin
var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: '));
var otr:=0; var pol:=0;
for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1;
write('Массив: '); a.Println;
if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else
if otr>pol then write('Отрицательных больше на ', otr-pol) else
write ('Положительных больше на ', pol-otr);
end.

2.1 Составить псевдокод функции x +1 npux < 0 x-2 npu x 20на отрезке [а; b], если а = -2, h = 0,2, b = a +h*(n+1), n = 5. ​

MOGZ ответил

2.1 Составить псевдокод функции x +1 npux < 0 x-2 npu x 20

на отрезке [а; b], если а = -2, h = 0,2, b = a +h*(n+1), n = 5.