Заполнить массив из 10 элементов в интервале [-50..50] и отсортировать его по убыванию.

143

375

Посмотреть ответы 2

Ответы на вопрос:

AnnHaylen

Информатика

4,6(42 оценок)

Program t1; var i, j: integer; mas: array [1..10] of integer; begin randomize; writeln ('сгенерированный масив: '); for i : = 1 to 10 do begin mas[i] : = random (100) - 50; write (mas[i]); end; begin for j: =1 to 9 do for i: =1 to 9-j do if m[i] < m[i+1] then swap(mas[i],mas[i+1]) end; writeln ('отсортированный по убыванию массив: '); for i : = 1 to 10 do write (mas[i]); end; end.

anna1660

Информатика

4,8(10 оценок)

Консольное приложение: program pr1; {$apptype console} var n, a, i, s: integer; p: double; begin writeln('введите кол-во переменных '); readln(n); s: =0; p: =1; for i: =1 to n do begin readln(a); s: =s+a; p: =p*a*a; end; writeln( 'сумма = ',s); writeln('произведение квадратов = ',p); readln; end. пример: введите кол-во переменных 5 4 6 2 7 3 сумма = 22 произведение квадратов = 1016064