Задача 7029 Ввести одномерный массив L = {13, 4, -2,...

StudentMTUCI

18.02.2016

Ввести одномерный массив L = {13, 4, -2, б, 7, -1, -5, 2, -3, 4} или прочитать его элементы из многострочного редактора. Вычислить и вывести m[0}nl0]+m{1]n[1J+...+m[k]n[kJ, где m{0J, m[1J,...m{p] - отрицательные элементы массива L, взятые в порядке их следования; [0], n[1],...n[(jJ - положительные элементы массива I, взятые в обратном порядке их следования; k = min{p,q}.

Предмет:Информационная Технология

VladimirErobkin

21.02.2016

★

var a:array[1..20] of integer;
i,j,x,n,k: integer;
begin
randomize;
writeln('ishodnyj massiv');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i]:4);
end;
Writeln;
for i:=1 to 19 do
for j:=i+1 to 20 do
if a[i]<a[j] then begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
for i:=1 to 20 do
writeln(a[i]);
end.