Даны натуральное число n, действительные числа a1,…, an:

@xarixo · Регистрация: 24.10.2017

Студворк — интернет-сервис помощи студентам

Доброго времени суток, господа. Т.к я в паскале полный 0, решил попробовать найти помощи у вас (препод ничего не объясняет) в решении 3 задач, желательно с комментированием. Заранее спасибо за ответы!

1. Даны натуральное число n, действительные числа a1,…, an:
a)Отсортировать последовательность по возрастанию (убыванию) значений элементов;

2. Дана матрица размером M x N
a)Все отрицательные элементы заменить на 0 и подсчитать сумму в каждом четном столбце.

3. Дана квадратная матрица порядка N
a)Заполнить квадратную матрицу генератором случайных чисел таким образом , чтобы элементы главной диагонали были равны единице.

@Соколиный глаз · 24.10.2017, 16:22

1 (во возрастанию):

Pascal
1
2
3
begin
  Writeln(ReadArrInteger(ReadlnInteger('N:')).OrderBy(x -> x));
end.

1 (по убыванию):

Pascal
1
2
3
begin
  Writeln(ReadArrInteger(ReadlnInteger('N:')).OrderByDescending(x -> x));
end.

Добавлено через 4 минуты
3:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const
  N = 4;
 
var
  Matrix: array [0..N - 1, 0..N - 1] of integer;
 
begin
  for var i := 0 to N - 1 do
    for var j := 0 to N - 1 do
      if i <> j then
        Matrix[i, j] := Random(10)
      else
        Matrix[i, j] := 1;
  
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to N - 1 do
      Write(Matrix[i, j] : 5);
    Writeln();
  end;
end.

Добавлено через 5 минут
2:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
const
  N = 3;
 
var
  Matrix: array [0..N - 1, 0..N - 1] of integer;
  Sum: array [0..N - 1] of integer;
 
begin
  for var j := 0 to N - 1 do
    for var i := 0 to N - 1 do
    begin
      Readln(Matrix[i, j]);
      if Matrix[i, j] < 0 then Matrix[i, j] := 0 else Inc(Sum[j], Matrix[i, j]);
    end;
  
  
  for var i := 0 to N - 1 do
  begin
    for var j := 0 to N - 1 do
      Write(Matrix[i, j]:5);
    Writeln();
  end;
  
  for var i := 0 to N - 1 do
    Write(Sum[i]:5);
end.

@xarixo · 24.10.2017, 16:24 **[ТС]**

Большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .

@xarixo 0 / 0 / 0 Регистрация: 24.10.2017 Сообщений: 3

	Даны натуральное число n, действительные числа a1,…, an: 24.10.2017, 16:02. Показов 3664. Ответов 2 Метки нет (Все метки) Доброго времени суток, господа. Т.к я в паскале полный 0, решил попробовать найти помощи у вас (препод ничего не объясняет) в решении 3 задач, желательно с комментированием. Заранее спасибо за ответы! 1. Даны натуральное число n, действительные числа a1,…, an: a)Отсортировать последовательность по возрастанию (убыванию) значений элементов; 2. Дана матрица размером M x N a)Все отрицательные элементы заменить на 0 и подсчитать сумму в каждом четном столбце. 3. Дана квадратная матрица порядка N a)Заполнить квадратную матрицу генератором случайных чисел таким образом , чтобы элементы главной диагонали были равны единице. 0

@xarixo 0 / 0 / 0 Регистрация: 24.10.2017 Сообщений: 3
	24.10.2017, 16:24 [ТС]
	Большое спасибо! 0

Даны натуральное число n, действительные числа a1,…, an:

Решение