Var s : string; finish,k,i : longint;begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); finish:=0; while(finish=0) do { если finish будет <> 0 то программа перестанет читать текст} begin writeln('читать? если да, то 0 если нет, то 1'); readln(finish); k:=0; if finish=0 then begin readln(s); for i:=1 to length(s) do if s[i]=' ' then inc(k); end else exit; inc(k); writeln(k); end;end.
// PascalABC.NET 3.0, сборка 1088 var n,i,max,min,s,t,k:integer; begin Write('Введите количество членов последовательности: '); Read(n); Writeln('Вводите числа через пробел'); max:=-32768; min:=32767; s:=0; k:=0; for i:=1 to n do begin Read(t); if t<min then min:=t else if t>max then max:=t; if t<0 then begin s:=s+t; Inc(k) end end; Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5) end.
Тестовое решение: Введите количество членов последовательности: 7 Вводите числа через пробел 25 -6 39 -118 271 24 -15 Min=-118, max=271, ср.арифм.=-46.33333
//Внимание! Если программа не работает, обновите версию!
begin
var N:=readinteger('Введите N=');
var mas:=ArrRandom(N,-99,99); mas.Println;
Writeln('суммa=',mas.Sum);
Writeln('среднее арифметическое=',mas.Average);
Writeln('произведение=',mas.Aggregate(biginteger(1),(x,y)->x*y));
end.