Question

Используя язык программирования Паскаль решить задачи: № 1 Массив А [1..10] целого типа заполнен случайными числами от 1 до 99. Найти количество тех элементов, значения лежат в интервале [40, 70]. № 2 Массив А [1..10] целого типа заполнен случайными числами от 1 до 99. Найти количество нечетных элементов.​

Answer 1

const

 n=10;

var

 a:array [1..n] of integer;

 count1,count2,i:integer;

begin

 count1:=0; count2:=0;

 for i:=1 to n do

   begin

     a[i]:=random(99)+1;

     write(a[i]:4);

     if (a[i]>=40) and (a[i]<=70) then

       inc(count1);

     if a[i] mod 2 = 1 then

       inc(count2);

   end;

 writeln;

 writeln('№1: ',count1);

 writeln('№2: ',count2);

end.

Answer 2

Для решения этих задач на языке программирования Паскаль, вы можете использовать следующий код:

1. Найти количество элементов, значения которых лежат в интервале [40, 70]:

pascalCopy code
program Task1;
var
  A: array[1..10] of integer;
  i, count: integer;
begin
  count := 0;
  
  // Заполняем массив случайными числами от 1 до 99
  Randomize;
  for i := 1 to 10 do
    A[i] := Random(99) + 1;
  
  // Находим количество элементов в интервале [40, 70]
  for i := 1 to 10 do
  begin
    if (A[i] >= 40) and (A[i] <= 70) then
      count := count + 1;
  end;
  
  writeln('Количество элементов в интервале [40, 70]: ', count);
end.

2. Найти количество нечетных элементов:

pascalCopy code
program Task2;
var
  A: array[1..10] of integer;
  i, count: integer;
begin
  count := 0;
  
  // Заполняем массив случайными числами от 1 до 99
  Randomize;
  for i := 1 to 10 do
    A[i] := Random(99) + 1;
  
  // Находим количество нечетных элементов
  for i := 1 to 10 do
  begin
    if A[i] mod 2 <> 0 then
      count := count + 1;
  end;
  
  writeln('Количество нечетных элементов: ', count);
end.

Скопируйте каждый из этих кодов в среду программирования Pascal (например, Free Pascal) и выполните их, чтобы получить результаты для каждой из задач.