Регистрация
vereshchako041
19.12.2022 12:23
Информатика
Есть ответ 👍

Turbo pascal или pascal abc. сортировать отрицательные элементы массива с прямого выбора.

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

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

помогитеявжопе
помогитеявжопе
4,4(18 оценок)

const n=10;

var i,j,v: integer;

a: array [1..n]of integer;

begin

write ('       исходный массив: ');

for i: =1 to n do begin

a[i]: =random(21)-10;

write(a[i]: 4);

end;

for i: =1 to n-1 do

for j: =i+1 to n do

if (a[i]< 0) and (a[j]< 0) then

if a[i] < a[j] then

begin

v: =a[i];

a[i]: =a[j];

a[j]: =v;

end;

writeln;

write ('преобразованный массив: ');

for i: =1 to n do

write(a[i]: 4);

end.

MMalaya
MMalaya
4,6(8 оценок)
Тип данных       длина       диапазон значений                             байт                       целые типыinteger                     2             - byte                         1             word                       2             shortint                   1             - longint                     4             -             вещественные типыreal                         6             2,9 * 10^-39 1,7 * 10^38 single                     4               1,5*10^-45 3,4*10^38 double                   8               5*10^-324 1,7*10^308 extended               10             3,4*10^-4932 1,1*10^4932                 логический типboolean                 1               true,     false                 символьный типchar                       1               все символы из таблицы ascii

Популярно: Информатика