Нужно на паскале решить1. Найти сумму ряда 5^{2} + 10^{2} + 15^{2} + … n^{2} 2. Объем воды в сосуде первоначально был v литров. Каждые 2,5 часа его количество увеличивалось в 2 раза. Как узнать сколько литров воды будет в сосуде через 30 часов?3. Вычислить s = n + m , где n и m - целые положительныечисла, n <> m. 4. Дана последовательность из n чисел, вводимых склавиатуры. Найти среднее арифметическое отрицательныхчисел. 5. Дан набор ненулевых целых чисел; признак егозавершения — число 0 Вывести сумму всех положительныхчетных чисел из данного набора. Если требуемые числа внаборе отсутствуют, то вывести 06. Поменять в массиве последний элемент и максимальныйэлемент.

1:

var s:longint;

i,n:byte;

begin

write('Введите количество членов ряда: '); readln(n);

for i:=1 to n do s:=s+sqr(i*5);

write(s);

end.

2:

var v:longint;

i,n:real;

begin

write('Введите первоначальный объём (л): '); readln(v);

n:=30;

i:=2. 5;

while i <= n do begin

v:=2*v;

i:=i+2. 5;

end;

write('Через 30 часов будет ', v, ' литров');

end.

3:

var nf,mf:longint;

i,n,m:byte;

begin

nf:=1;

mf:=1;

write('Введите n: '); readln(n);

write('Введите m: '); readln(m);

for i:=1 to n do nf:=nf*i;

for i:=1 to m do mf:=mf*i;

write('n!+m!=', nf+mf);

end.

4:

var x,s:integer;

c:byte = 0;

begin

while true do begin

write('Введите число (0 для выхода): '); readln(x);

if x = 0 then break;

if x < 0 then begin

s:=s+x;

inc(c);

end;

end;

if c = 0 then write('Ни одного отрицательного числа не было введено')

else write('Среднее арифметическое отрицательных значений равно: ', s/c:0:2);

end.

5:

var x,s:integer;

begin

while true do begin

write('Введите число (0 для выхода): '); readln(x);

if x = 0 then break;

if (x mod 2 = 0) and (x > 0) then s:=s+x;

end;

if s = 0 then write('Ни одного чётного положительного числа не было введено')

else write('Сумма чётных положительных чисел равна: ', s);

end.

6:

var a:Array[1. . 10] of integer;

max_v:integer;

i,max_i:byte;

begin

a[1]:=random(100);

max_v:=a[1];

max_i:=1;

write(a[1],' ');

for i:=2 to length(a) do begin

a[i]:=random(100);

if a[i] > max_v then begin

max_v:=a[i];

max_i:=i;

end;

write(a[i],' ');

end;

if max_i <> length(a) then begin

a[max_i]:=a[length(a)];

a[length(a)]:=max_v;

end;

writeln();

for i:=1 to length(a) do write(a[i], ' ');

end.