- У середовищі програмування Pycharm створіть проект Швидкий пошук Для знаходження у списку з 10 дійсних чисел елемента, що відповідає
заданій умові.
выручайте . Скиньте видео как вы решили . Очень нужно

Var  a,b,p,n,x,i:integer;
begin
writeln('Сколько примеров будешь решать:');
readln(n);
for i:=1 to n do
  begin
  a:=random(10)+1;
  b:=random(10)+1;
  write('Сколько будет ',a,'+',b,'=');
  readln(x);
  if x=a+b then
    begin
    p:=p+1;
    writeln('Правильно');
    end
    else writeln('Неверно');
  end;
writeln('Число правильных ответов: ',p);
if p=n then writeln('Отлично, ты превосходно знаешь арифметику');
if (p<n) and (p/n>0.75) then writeln('Хорошо, ты неплохо знаешь арифметику');
if (p/n<=0.75) and (p/n>0.5) then writeln('Удовлетворительно, ты средне знаешь арифметику');
if (p/n<=0.5) and (p>0) then writeln('Плохо, ты не знаешь арифметику');
if p=0 then writeln('Отвратительно, ты абслютно не знаешь арифметику');
end.

Можно сделать, чтобы не только на сложение, а на все 4 действия.

uses crt;

var k: char;

begin

repeat

textcolor(0);

clrscr;

writeln('выберите цвет 1-красный, 2-жёлтый, 3-зеленый другое-выход');

readln(k);

clrscr;

case k of

'1': begin

    textcolor(2);

    write('красный');

    readln

    end;

'2': begin

    textcolor(14);

    write('желтый');

    readln

    end;

'3': begin

    textcolor(12);

    write('зеленый');

    readln

    end;

else exit;

end;

until not(k in ['1'..'3']);

end.

вроде так

объяснение: