С клавиатуры вводится последовательность целых чисел пока не введем число 0. Напишите программу которая вычисляет среднее арифметическое отрицательных чисел и среднее геометрическое положительных чисел
2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)
const n=16; var i,s:integer; a:array[1..n] of integer; begin Randomize; s:=0; for i:=1 to n do begin a[i]:=Random(101)-20; Write(a[i],' '); if i mod 2=0 then s:=s+a[i] end; Writeln; Writeln('S=',s) end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 begin var a:=ArrRandom(10,50,100); a.Println(', '); var s:=0; for var i:=0 to 9 do s+=a[i]; Writeln('s=',s) end.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(51)+50; Write(a[i],' '); s:=s+a[i] end; Writeln; Writeln('s=',s) end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(16,-20,80); a.Println;
Writeln('S=',a.Where((x,i)->i.IsOdd).Sum)
end.
Пример
61 64 70 22 76 22 18 44 36 53 29 -9 42 -19 66 34
S=211
2. А вот так все еще учат в большинстве школ (стиль образца 70-80х годов века)
const
n=16;
var
i,s:integer;
a:array[1..n] of integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(101)-20;
Write(a[i],' ');
if i mod 2=0 then s:=s+a[i]
end;
Writeln;
Writeln('S=',s)
end.