Запишите значение переменной s, полученное в результате работы следующей программы. текст программы - id675527820200718 от Костя111113 18.07.2020 07:38

Question

Информатика: Запишите значение переменной s, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык бейсик паскаль алг нач цел s, k s : = 0 нц для k от 4 до 9 s : = s + 12 кц вывод s кон dim k, s as integer s = 0 for k = 4 to 9 s = s + 12 next k print s var s,k: integer; begin s : = 0; for k : = 4 to 9 do s : = s + 12; writeln(s); end.

Костя111113 · 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.

MOGZ ответил