Задать свой вопрос   *более 50 000 пользователей получили ответ на «Решим всё»

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

Условие

Ввести одномерный массив 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}.

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

информатика ВУЗ 1757

Решение

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.

Написать комментарий

Меню

Присоединяйся в ВК