Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
P.S.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
1)3<=11
sum=0+3
i=3+2
2)5<=11
sum=3+3
i=5+2
3)7<=11
sum=6+3
i=7+2
4)9<=11
sum=9+3
i=9+2
5)11<=11
sum=12+3
i=11+2
6)13>11 Выполнено!
sum=15!
1. Б
3. Б
5. В
7. Б
8. Б
9. А
10. В
11. А
12. Г
13. В
14. А
15. А
16. Г
17. Г
18. В
19. Б, Д
20. Д, В
Честно не уверена, что это верно. Но думаю что-то да правильное есть
Const n=10;
var a: array [1..n] of integer;
i,p: integer;
begin
for i:=1 to n do
a[i]:=random(-2,2);
writeln (a);
p:=1;
for i:=1 to n do
if a[i]<>0 then p:=p*a[i];
writeln (p)
end.