Var a,b: array[0..19] of Integer;
i: Integer;
begin
for i:=0 to 19 do
begin
a[i]:=random(5)+1;
b[i]:=random(5)+1;
end;
for i:=0 to 19 do
begin
if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]);
end;
end.
Дискета? или бумага. но бумага вроде больше подходит, потому что дискета появилась лишь в 1970-1990 году
Ответ:::::::::::::::::::::::::
1+2+3-4+5-6=1
Два условия и два действия.
Второе условие вложенное, проверяется только если первое условие истинно.
Всего в данном фрагменте описаны 3 варианта поведения программы.