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

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

Question

Летя

30 января, 18:54

+3

Ответы (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