Question

Очень срочно пожалуйста на кону моя жизнь!!!!!! числовой массив из 10 элементов со значениями от 5 до 10. Вывести на экран количество элементов массива равных 7. Паскаль

Answer 1

//PascalABC.NET v3.3 1633

var arr: array [1..10] of integer;

begin

for var i:=1 to 10 do

 arr[i]:=random(5,10);

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

arr.PrintLn(', ');

var count:=0;

for var i:=1 to 10 do

 if arr[i] = 7 then

   count += 1;

writeln('Количество элементов, равных 7: '+count);

end.

Answer 2

Конечно, вот пример кода на языке программирования Pascal, который создает числовой массив из 10 элементов со значениями от 5 до 10 и выводит количество элементов, равных 7:

pascalCopy code
program CountSevens;

var
  arr: array[1..10] of Integer;
  count, i: Integer;

begin
  count := 0;

  // Заполняем массив случайными числами от 5 до 10
  Randomize;
  for i := 1 to 10 do
  begin
    arr[i] := Random(6) + 5;
    writeln('Элемент ', i, ': ', arr[i]);
    if arr[i] = 7 then
      count := count + 1;
  end;

  writeln('Количество элементов, равных 7: ', count);
end.

Этот код создает массив arr из 10 элементов и заполняет его случайными числами от 5 до 10. Затем он проходит по массиву и подсчитывает количество элементов, равных 7, выводя результат на экран.