vera4
?>

Почему необходимо использовать процедуры при напи-сании программы?​

Информатика

Ответы

pavelvsk2023
//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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Почему необходимо использовать процедуры при напи-сании программы?​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Вершинина1161
svetavancevich
YelenaZOLTANOVICh105
Диана820
Yuliya Aleksandr686
nadezhdasvirina
alex13izmailov
agaloan8
Sergeevna803
koldunovan
АлександрАлександровна
Coverplus30
Николаевич-Анатольевич599
Rinatum1978
Drugov_Vladimirovna