Question

напишите программу которая заполняет массив из 20 элементов случайными числами на отрезке 0 200 и считает число двухзначных чисел в массиве ПАСКАЛЬ

Answer 1

program znanija;

const n = 20;//длина массива

var

c,i,count: integer;

arr: array[0..n] of integer;

begin

for i := 0 to n do

begin

c:=random(200);

arr[i]:= c;

end;

writeln(arr);

writeln();

for i:=0 to n do

if (arr[i]>=10) and (arr[i]<100) then

count:=count+1;

write('количество двухзначных чисел = ' + count);

end.

Answer 2

Программа, которая заполняет массив из 20 элементов случайными числами на отрезке 0-200 и считает число двухзначных чисел в массиве на языке Паскаль:

program RandomArray;

var
  arr: array[1..20] of Integer;
  i, count: Integer;
  
begin
  count := 0;
  
  Randomize; // Инициализация генератора случайных чисел
  
  for i := 1 to 20 do
  begin
    arr[i] := Random(201); // Заполнение массива случайными числами от 0 до 200
    
    if (arr[i] >= 10) and (arr[i] <= 99) then // Проверка, является ли число двузначным
      count := count + 1;
  end;
  
  // Вывод полученного массива и количества двузначных чисел
  for i := 1 to 20 do
    Write(arr[i], ' ');
    
  Writeln;
  Writeln('Число двузначных чисел в массиве: ', count);
end.

Данная программа использует генератор случайных чисел для заполнения массива `arr` случайными числами от 0 до 200. Затем происходит подсчёт двузначных чисел в массиве с помощью цикла `for`. Если число в массиве находится в диапазоне от 10 до 99, оно считается двузначным. По окончании работы цикла выводится полученный массив и количество двузначных чисел.