steamenigasteam
31.01.2020 23:55

1.Как осуществить сортировку массива (Паскаль) ?
2. Существует два основных алгоритма сортировки одномерных массивов. Какие?​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Ris1234
02.09.2021 06:51
Ctrl+ - Увеличивает масштаб страницы или изображения в ворде браузерах и т.д. 
Ctrl- - Уменьшает масштаб страницы или изображения в ворде браузерах  и т.д
End - Перейти в конец страницы
Home- Перейти в начало страницы
Page Up - Для перемещения на один экран вверх 
Page Downd - Для перемещения на один экран вниз
Ctrl+Page Up - в документах (переход вниз на 1-ну страницу); в браузере (перейти на один экран влево)
Ctrl+Page Down - в документах (переход вверх на 1-ну страницу); в браузере (перейти на один экран вправо)
Ctrl+Home - сразу в начало текста
Ctrl+End - сразу в конец текста
0,0(0 оценок)
Ответ:
царапина123
22.01.2021 21:13
Const nx=30;var i,j,p,n:integer;A:array[1..nx,1..nx] of integer;d,Sn,min:real;begin p:=1;write('Введите размер матрицы');Read(n);for i:=1 to n do beginfor j:=1 to n do beginA[i,j]:=random(3)-2;write(A[i,j]:4);end;writeln;end;writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif i = j then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);writeln;writeln;for i:=1 to n do beginfor j:=1 to n do beginif (i= n -j +1) then begin if A[i,j]<> 0 then p:=p* A[i,j];write(A[i,j]:4);endelse write(' ':4);end;writeln;end;write('p =',p);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота