var j, a, b, n: integer;
label 1;
begin
1: randomize;
a: = random (9);
b: = random (9);
write (a, '*', b, '=');
read (n);
if n = (a * b) then writeln ('відповідь вірний! ')
else writeln ('відповідь неправильний! ');
writeln ('продовжуватимеш? ');
writeln ('якщо так то натисни 1');
writeln ('якщо немає то натисни 2');
read (j);
if j = 1 then goto 1;
if j = 2 then writeln ('до побачення! ');
end.
начебто так, точно не пам'ятаю.
Код будет работать в Pascal ABC
(в остальных программах нужно поменять функцию рандома чисел)
program p1;
var
//Пусть массив будет состоять из 50 элементов
n:array[1..50] of integer;
i, j, s:integer;
begin
//Создание массива случайный чисел от -10 до 50
for i:= 1 to 50 do
begin
n[i]:= random(-10, 50);
writeln(n[i]);
end;
//Подсчет
for j:= 1 to 50 do
begin
if n[j] > 10 then
begin
s:=s+1;
end;
end;
WriteLn('Элементов больше 10: ', s);
end.