Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33
var a: array [1..16] of integer;
i,s,c,d: integer;
begin
randomize;
read(c,d);
for i : = 1 to 16 do begin
a[i]: = random(d+c) - c;
if a[i]> 0 then s: = s + a[i];
end;
writeln(s);
end.
Популярные вопросы