С БЛОК СХЕМОЙ
program pascal52;
var A: array[1..100] of integer;
NN, i, j: integer;
begin
write('размер массива NN = ');
readln(NN);
for i := 1 to NN do
begin
write('a[' ,i, '] = ');
read(a[i])
end;
for i := 2 to NN do
for j := 1 to i - 1 do
if a[i] = a[j] then begin
writeln('Номера: ', j, ' и ', i);
end;
end.

Этотникужезанят146    2   12.04.2020 16:13    1