Question

Дан массив из 20 рандомных чисел. Нужно, чтобы программа вывела только 1,3,6,9.На языке паскаль, пожалуйста

Answer 1

Ответ:

program z1;

var a:array [1..20] of integer;

i: integer;

begin

randomize;

for i:=1 to 20 do

a[i]:= random(2001)-1000;

writeln ('1 ячейка массива a[i] равна ', a[1]);

writeln ('3 ячейка массива a[i] равна ', a[3]);

writeln ('6 ячейка массива a[i] равна ', a[6]);

writeln ('9 ячейка массива a[i] равна ', a[9]);

end.

Я заполнил массив рандомными числами от -1000 до 1000, поскольку вы не указали диапазон чисел.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Pascal, которая создает массив из 20 случайных чисел и выводит только 1-е, 3-е, 6-е и 9-е числа из массива:

pascalCopy code
program RandomNumbers;
var
  Numbers: array[1..20] of Integer;
  i: Integer;
begin
  // Заполняем массив случайными числами от 1 до 100
  Randomize;
  for i := 1 to 20 do
    Numbers[i] := Random(100) + 1;

  // Выводим 1-е, 3-е, 6-е и 9-е числа из массива
  writeln('1-е число: ', Numbers[1]);
  writeln('3-е число: ', Numbers[3]);
  writeln('6-е число: ', Numbers[6]);
  writeln('9-е число: ', Numbers[9]);
end.

Эта программа создает массив из 20 случайных чисел от 1 до 100 и выводит 1-е, 3-е, 6-е и 9-е числа из этого массива.