Я не знаю!!!!!!!!! Не розуміюсь в інформатиці!
===== PascalABC.NET =====
begin
var x := ArrRandom(20, -99, 99);
x.Println;
var (imax, imin) := (x.IndexMax, x.IndexMin);
var t := (x.First + x.Last) div 2;
(x[imax], x[imin]) := (t, t);
x.Println;
x.Sum.Print
end.
Если я неошибаюсь 2.ну я так думаю
Значки рахуємо по маленьких стрілках внизу, але викидаємо значок папки My Pictures, це не програма. Одже їх D) 7.
P.S Программа написана для Pascal.
program summa;
var
s:real;
i, n: integer;
begin
writeln('Введите число n: ');
read(n);
s:=0;
for i:=1 to n do
s:=s+(i+1)/i;
writeln('S= ',s:4:2);
end.