Обьесните каждую команду каждую строчку что где происходит
program z_8;
var i, s2, s3, s4, s5: integer;
a: array [1..20] of integer;
begin
for i: =1 to 20 do begin
a[i] : = random(2, 5);
if a[i] = 2 then s2: =s2+1;
if a[i] = 3 then s3: =s3+1;
if a[i] = 4 then s4: =s4+1;
if a[i] = 5 then s5: =s5+1;
end;

writeln('двоек: ', s2, '; троек: ', s3, '; четверок: ', s4, '; пятерок: ', s5);
end.

netznanie    1   25.12.2019 12:39    2