Question

Дана последовательность N целых чисел.Посчитать количество простых чисел в этой последовательности. Код:Паскаль Тема:Массивы

Answer 1

Цикл в цикле ваша тема: 

program pin; 

var 
i, j, cm: Integer; 
povtor: Boolean; 

const 
m: array[1..10] of Integer = (1, 2, 3, 1, 2, 5, 4, 3, 1, 2); 

begin 
cm := 0; 

for i := 1 to 10 do 
begin 
povtor := False; 
for j := 1 to 10 do 
begin 
if (i <> j) and (m[ i ] = m[ j ]) then 
begin 
povtor := True; 
Break; 
end; 
end; 

if not povtor then cm := cm + 1; 

end; 

WriteLn(cm); 

end.

Answer 2

Вот пример кода на языке Паскаль, который считает количество простых чисел в заданной последовательности:

pascalCopy code
program CountPrimes;
var
  N, i, j, count: integer;
  numbers: array of integer;
  isPrime: boolean;
begin
  write('Введите количество чисел в последовательности: ');
  readln(N);
  
  // Инициализируем массив чисел
  SetLength(numbers, N);
  
  // Читаем числа из ввода
  for i := 0 to N-1 do
  begin
    write('Введите число: ');
    readln(numbers[i]);
  end;
  
  // Считаем количество простых чисел
  count := 0;
  for i := 0 to N-1 do
  begin
    // Проверяем, является ли число простым
    isPrime := true;
    for j := 2 to trunc(sqrt(numbers[i])) do
    begin
      if numbers[i] mod j = 0 then
      begin
        isPrime := false;
        break;
      end;
    end;
    
    // Увеличиваем счетчик, если число простое
    if isPrime then
      count := count + 1;
  end;
  
  writeln('Количество простых чисел: ', count);
end.

Программа сначала запрашивает у пользователя количество чисел в последовательности. Затем она считывает числа из ввода и сохраняет их в массиве. Затем программа проверяет каждое число на простоту и увеличивает счетчик, если число является простым. В конце программа выводит количество простых чисел в последовательности.