Создайте таблицу “Реки Европы ”, используя следующие данные длины (км) и площади бассейна (тыс. кв. км):

Волга 3688 и 1350;

Дунай 2850 и 817;

Рейн 1330 и 224;

Эльба 1150 и 148;

Висла 1090 и 198;

Луара 1020 и 120;

Урал 2530 и 220;

Дон 1870 и 422;

Сена 780 и 79;

Темза 340 и 15.

Определите самую длинную и самую короткую реку, подсчитайте суммарную площадь бассейнов рек, среднюю протяженность рек европейской части России. Создайте диаграмму, иллюстрирующую соотношение длины рек Европы. ​

1. По условию которое записано у вас(1/1*1+1/2*2+1/3*3+...+1/n*n, ) В этом случае программа будет бессмысленной

program raf105;

var n,i:integer;

sum:real;

begin

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

readln(n);

for i:=1 to n do

 sum += 1/i*i;

writeln('Сумма: ',sum);

end.

2. По условию которое могло быть на самом деле(1/(1*1)+1/(2*2)+1/(3*3)+...+1/(n*n), )

program raf105;

var n,i:integer;

sum:real;

begin

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

readln(n);

for i:=1 to n do

 sum += 1/(i*i);

writeln('Сумма: ',sum);

end.

Язык программирования PascalABC

const h = 15;

var arr: array [1..h] of integer;

i, sum, prod, min, max: integer;

begin

   writeln('Исходный массив: ');

   for i:=1 to h do

   begin

       arr[i]:=random(-100,100);

       write(arr[i], ' ');

   end;

   writeln();

   

   sum:=arr[1];

   prod:=arr[1];

   min:=arr[1];

   max:=arr[1];

   for i:=2 to h do

   begin

       sum += arr[i];

       prod *= arr[i];

       if arr[i] < min then

           min:=arr[i];

       if arr[i] > max then

           max:=arr[i];

   end;

   

   writeln('Сумма: ', sum);

   writeln('Произведение: ', prod);

   writeln('Max: ', max);

   writeln('Min: ', min);

end.