Ну функция randomize() создаёт, перемешивает новые рандомные числа, а random() их предоставляет. Разных вариаций написания много, я например сделал с массивом, можно в принципе и без него, но с ним лучше т.к. числа хранятся в массиве и их можно выводить в будущем, если это слишком сложно для тебя, то я могу написать программу без использования массива.
Var i,b:integer; A:array[1..20] of integer; Begin Randomize(); for i:=1 to 20 do A[i]:=Random(0,50); Write('Из чисел: '); for i:=1 to 20 do begin if i=20 then Writeln(A[i]) else Write(A[i],', ') end; Write('Кол-во четных равняется: '); for i:=1 to 20 do if (A[i] mod 2 = 0) then b:=b+1; Writeln(b) End.
Инструменты по умолчанию находятся в левой области программы. Убрать/Добавить окно с Инструментами можно нажав Window > Tools
2.
1 ) Номер монтажной области можно выбрать в раскрывающимся списке Artboard Navigation в левом нижнем углу документа.
2) Так же можно использовать расположенные в левом нижнем углу кнопки навигации по монтажным областям ( Next, Previous, First, Last ).
3) Перейти к монтажной области можно выполнив двойной щелчок по имени монтажной области на палитре Artboards, или используя палитру Navigator.
3.
Чтобы сохранить положения панелей/параметры отображения, необходимо нажать Window > Workspace > Save Workspace.
4.
Упорядочивание окон документа может быть полезно при работе с несколькими файлами и необходимости выполнять сравнение содержимого файлов или обмен содержимым между файлами.
Разных вариаций написания много, я например сделал с массивом, можно в принципе и без него, но с ним лучше т.к. числа хранятся в массиве и их можно выводить в будущем, если это слишком сложно для тебя, то я могу написать программу без использования массива.
Var i,b:integer;
A:array[1..20] of integer;
Begin
Randomize();
for i:=1 to 20 do
A[i]:=Random(0,50);
Write('Из чисел: ');
for i:=1 to 20 do
begin
if i=20 then
Writeln(A[i])
else Write(A[i],', ')
end;
Write('Кол-во четных равняется: ');
for i:=1 to 20 do
if (A[i] mod 2 = 0) then b:=b+1;
Writeln(b)
End.
Вот выводы программы, которые у меня получились.
Первый раз:
Из чисел: 42, 1, 46, 24, 36, 9, 22, 16, 7, 41, 49, 46, 27, 29, 50, 44, 44, 10, 48, 36
Кол-во четных равняется: 13
Второй раз:
Из чисел: 5, 16, 16, 27, 1, 48, 46, 45, 46, 13, 21, 18, 24, 45, 14, 13, 33, 14, 21, 30
Кол-во четных равняется: 10
Третий раз:
Из чисел: 15, 2, 24, 42, 49, 43, 5, 48, 8, 1, 45, 9, 20, 24, 35, 19, 11, 15, 26, 33
Кол-во четных равняется: 8
Файл с кодом прикреплю во вложения, спрашивай если не понятна какая-то функция, объясню, дабы ты не стоял в ступоре перед учительницей...
1.
Инструменты по умолчанию находятся в левой области программы. Убрать/Добавить окно с Инструментами можно нажав Window > Tools
2.
1 ) Номер монтажной области можно выбрать в раскрывающимся списке Artboard Navigation в левом нижнем углу документа.
2) Так же можно использовать расположенные в левом нижнем углу кнопки навигации по монтажным областям ( Next, Previous, First, Last ).
3) Перейти к монтажной области можно выполнив двойной щелчок по имени монтажной области на палитре Artboards, или используя палитру Navigator.
3.
Чтобы сохранить положения панелей/параметры отображения, необходимо нажать Window > Workspace > Save Workspace.
4.
Упорядочивание окон документа может быть полезно при работе с несколькими файлами и необходимости выполнять сравнение содержимого файлов или обмен содержимым между файлами.