Регистрация
Джеффл1
23.10.2021 20:07
Информатика
Есть ответ 👍

Написать программу на паскале, (максимально просто)дан массив из 15 элементов, отсортировать по возрастанию элементы массива являющиеся простыми числами.

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

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

riborg250000000
riborg250000000
4,6(30 оценок)

program pr10;

uses crt;

var

  i: integer;

  t: real; // рабочая переменная

  i: byte; // счетчик массива

  k: byte; // параметр цикла

  a: array[1..15] of real;

  n: byte; // размерность цикла

begin

  clrscr;

  write('введите размерность: ');

  readln(n);

  writeln('введите ',n,' элементов');

  for i: =1 to n do

      readln(a[i]);

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

  for i: =1 to n do

      write(a[i]: 5: 1,' ');

      readln;

// блок обработки

  for k: =1 to n do

      for i: =1 to n-k do

        if(a[i]> a[i+1]) then

// перестановка

            begin

              t: =a[i];

              a[i]: =a[i+1];

              a[i+1]: =t;

            end;

  writeln('отсортированный массив: ');

  for i: =1 to n do

      write(a[i],' ');

      writeln;

      readln;

end.

я хз как правильно проверить простое число или нет. вот код, который просто сортирует массив по возрастанию.  

MrGoudi
MrGoudi
4,8(73 оценок)
Процесс оформления страницы, абзаца, строки, символа, путём изменения размера символов или их начертания. 

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