Question

Напишите программу которая находит и выводит на экран 4 максимальных элемента последовательности числа которой различны. Язык Паскаль

Answer 1

type z=array of integer;

var a: z;

i,j,k: integer;

begin

setlength(a,1);

readln(a[0]);

i:=1;  

while(a[i-1]<>0) do

begin

setlength(a,i+1);

readln(a[i]);

i:=i+1;

end;

setlength(a,length(a)-1);

for i:=0 to length(a) do

for j:=0 to length(a)-2 do

if (a[j] < a[j+1]) then

begin

k:=a[j];

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

a[j+1]:=k;

end;

write(a[0],'; ',a[1],'; ',a[2],'; ',a[3]);

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая находит и выводит на экран 4 максимальных элемента последовательности чисел с уникальными значениями:

pascalCopy code
program MaxUniqueElements;

const
  MAX_ELEMENTS = 4;

var
  sequence: array[1..100] of Integer;  // Предполагаем, что последовательность содержит не более 100 элементов
  numElements, i, j, temp: Integer;
  uniqueElements: array[1..MAX_ELEMENTS] of Integer;

begin
  // Вводим количество элементов последовательности
  Write('Введите количество элементов последовательности: ');
  ReadLn(numElements);

  // Вводим последовательность чисел
  WriteLn('Введите элементы последовательности:');
  for i := 1 to numElements do
    ReadLn(sequence[i]);

  // Находим уникальные элементы
  j := 0;
  for i := 1 to numElements do
  begin
    if (j = MAX_ELEMENTS) then
      Break;
    
    // Проверяем, является ли текущий элемент уникальным
    if (i = 1) or (sequence[i] <> sequence[i-1]) then
    begin
      Inc(j);
      uniqueElements[j] := sequence[i];
    end;
  end;

  // Сортируем уникальные элементы по убыванию
  for i := 1 to MAX_ELEMENTS - 1 do
  begin
    for j := 1 to MAX_ELEMENTS - i do
    begin
      if uniqueElements[j] < uniqueElements[j+1] then
      begin
        temp := uniqueElements[j];
        uniqueElements[j] := uniqueElements[j+1];
        uniqueElements[j+1] := temp;
      end;
    end;
  end;

  // Выводим 4 максимальных уникальных элемента
  WriteLn('4 максимальных уникальных элемента последовательности:');
  for i := 1 to MAX_ELEMENTS do
    WriteLn(uniqueElements[i]);

  ReadLn;
end.

Программа запрашивает у пользователя количество элементов в последовательности, а затем последовательно запрашивает сами элементы. Она находит 4 максимальных уникальных элемента, сортирует их по убыванию и выводит на экран.