Вpascal. 1) заполните массив случайными числами из интервала [-50; 50), вывести на экран, посчитать сумму отрицательных элементов. 2)ввести одномерный массив, вывести его на экран, найти максимальный элемент и его порядковый номер. 3)заполните массив случайными числами из интервала [0; 50), вывести массив на экран, найти минимальный и максимальный элементы, поменять их местами.

1) var a: array [1..10] of integer;           i,sum: integer; begin   randomize;   sum: =0;   for i: =1 to 10 do       begin           a[i]: =random(100)-50;             write (a[i],' ');           if a[i] < 0 then sum: =sum+a[i];             end;   writeln;   writeln ('summa: ',sum);   readln; end. 2) var a: array [1..10] of integer;           i,max,index: integer; begin   for i: =1 to 10 do       begin             write ('a[',i,'] = ');               readln (a[i]);         end;   max: =a[1];   index: =1;   for i: =2 to 10 do       if a[i] > max then           begin               max: =a[i];               index: =i;             end;   writeln ('max: ',max,'.index: ',index);   readln; end. 3) var a: array [1..10] of integer;           max,min,i,temp: integer; begin   randomize;   for i: =1 to 10 do       begin             a[i]: =random(50);             write (a[i],' ');         end;   writeln;   max: =1;   min: =1;   for i: =2 to 10 do       if a[i] > a[max] then max: =i else           if a[i] < min then min: =i;   writeln ('max: ',a[max]);   writeln ('min: ',a[min]);   temp: =a[min];   a[min]: =a[max];   a[max]: =temp;   for i: =1 to 10 do write (a[i],' '); end.

Program n_58; var   s: array[1..10] of real = (244.1, 357, 132, 43.1, 504.8, 301.2, 312.7, 92.0, 337, 551); // площадь   gn: array[1..10] of real; // густота населения   k: array[1..10] of real = (58100, 81200, 10300, 5190, 39100, 57200, 38500, 9800, 5060, 57800); // количество   n: array[1..10] of string = ('великобритания', 'германия', 'греция', 'дания', 'испания', 'италия', 'польша', 'португалия', 'финляндия', 'франция');   i, j: integer;   x: real;   r: string; begin   for i : = 1 to 10 do gn[i] : = k[i] / s[i];   for i : = 1 to 10 do     for j : = i + 1 to 10 do       if gn[i] > gn[j] then        begin         x : = gn[j]; gn[j] : = gn[i]; gn[i] : = x;         r : = n[j]; n[j] : = n[i]; n[i] : = r;       end;   for i : = 1 to 10 do writeln(n[i], ' ', gn[i]: 0: 2); end.