Question

Заполните массив 15 случайными целыми числами из промежутка [1,20]. Выведите на экран элементы массива через 2 пробела .Найдите количество элементов массива , равных 3.(Pascal ABC)

Answer 1

Var x,i:integer;
mass:array[1..15]of integer;
begin
randomize;
x:=0;
for i:=1 to 15 do
begin
mass[i]:=random(20)+1;
if mass[i]=3 then x:=x+1;
write(mass[i]+' ');
end;
writeln('');
writeln('количество элементов равных трем = '+x);
end. 

Answer 2

Заполнение массива случайными числами и вывод на экран

Для заполнения массива 15 случайными целыми числами из промежутка [1, 20] и вывода элементов массива на экран через 2 пробела, можно воспользоваться следующим кодом на Pascal ABC:

program RandomArray;
var
  arr: array[1..15] of integer;
  i: integer;

begin
  Randomize;
  for i := 1 to 15 do
  begin
    arr[i] := Random(20) + 1;
    Write(arr[i], '  ');
  end;
end.

В этом примере массив `arr` заполняется случайными числами от 1 до 20, и каждый элемент выводится на экран через 2 пробела.

Поиск количества элементов, равных 3

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

program CountThrees;
var
  arr: array[1..15] of integer;
  i, count: integer;

begin
  Randomize;
  count := 0;
  for i := 1 to 15 do
  begin
    arr[i] := Random(20) + 1;
    if arr[i] = 3 then
      Inc(count);
  end;
  WriteLn('Количество элементов массива, равных 3: ', count);
end.

Этот пример заполняет массив `arr` случайными числами от 1 до 20 и подсчитывает количество элементов, равных 3. Результат подсчета выводится на экран.

Пожалуйста, используйте эти примеры кода в своей среде разработки Pascal ABC для выполнения задачи. Если у вас возникнут дополнительные вопросы, не стесняйтесь спрашивать!