1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
(Задача похожая на твою,подставь свои цифры))"В классе 28 учеников(-а), из них 12 школьников занимаются в математическом кружке, 6 — в литературном, 6 литераторов увлекаются математикой. Сколько ребят не посещают эти кружки? Используй для решения круги Эйлера."
Объяснение:
Всего 35 учеников. 10 кружки не посещают. Значит, посещают кружки 35-10=25 учеников.
25 учеников посещают кружки. 20 учеников занимаются в математическом кружке. Значит, только литературный кружок посещают 25-20=5 человек. В литературном кружке 11 человек. Лишь 5 из них посещают только литературный кружок.
Значит, 11-5 = 6 человек-литераторов посещают ещё и математический кружок.
1-56, 5-8,8-4отаетна вопросаномер вопроса и ответ