Дан ряд чисел 1,3,5,7 ... Найти среднее арифметическое первых n чисел и максимальный элемент)

написать программу на языке Pascal

Question

Летта

29 августа, 22:59

+5

Ответы (1)

Знаете ответ?

Поляха · Answer 1

Var n, i, s:integer;

begin

read (n) ;

s:=-1;

for i:=1 to n do begin

s:=s+2;

end;

writeln (s) ;

end.

Дан ряд чисел 1,3,5,7 ... Найти среднее арифметическое первых n чисел и максимальный элемент)написать программу на языке Pascal