Заполнить массив из 10 элементов случайными числами в интервале -10 10 и отсортировать их по убыванию. на языке pascal

183

185

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

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

pecheintsynak

Информатика

4,7(20 оценок)

Var a: array[1..10] of integer ; b,i,k,f: integer; begin writeln('исходный массив'); for i: = 1 to 10 do begin a[i]: =random(20)-10; write(a[i]: 3); end; for k: =1 to 9 do begin for i: = 1 to 9 do begin if a[i]< a[i+1] then begin b: =a[i]; a[i] : = a[i+1]; a[i+1]: =b; end; end; end; writeln; writeln('итоговый массив'); for i: = 1 to 10 do write(a[i]: 3); end.

nakjuo

Информатика

4,4(45 оценок)

//pascalabc.net //версия 3.3 var x, f: real; begin write('введите x: '); read(x); if(x > 7) then f : = 1 / x - 7 else f : = 10; write('f = ', f); end.