uses crt; var a:array[1..20] of integer; b:array[1..20] of integer; i,j,k,min,max:integer; begin writeln('Первый массив: '); for i:=1 to 20 do begin a[i]:=random(50-10+1)+10; write(a[i]:3); end; writeln; writeln('Второй массив: '); for j:=1 to 20 do begin b[j]:=random(90-30+1)+30; write(b[j]:3); end; writeln; min:=60; writeln('Первый массив в порядке возрастания: '); for i:=1 to 20 do begin for j:=1 to 20 do begin if a[j]<min then begin min:=a[j]; k:=j; end; end; a[k]:=60; write(min:3); min:=60; end; writeln; max:=0; writeln('Второй массив в порядке убывания: '); for j:=1 to 20 do begin for i:=1 to 20 do begin if b[i]>max then begin max:=b[i]; k:=i; end; end; write(max:3); b[k]:=0; max:=0; end; writeln; end.
Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.
Здесь также же петрушка,что и подобное задание, разница лишь в условии. Здесь перемещение должно происходить тогда, когда последняя цифра а[i] равняется всему числу а[0].массив такой:
8, 3, 16, 24, 35, 18, 4, 72, 8, 99, 44
И смена мест происходит не а0 с аi, а аi c a(i+1), т.е а0 никак не меняется.
Кароче, дашло до 18 при а5 и поменялся массив так:
8, 3, 16, 24, 35, 4, 18, 72, 8, 99, 44
Теперь смотрим: а6 тоже заканчивается на 8, значит трансформируем массив опять:
8, 3, 16, 24, 35, 4, 72, 18, 8, 99, 44
И опять он встал на нашем пути. И так будет до конца массива. И это случится действительно 5 раз.
uses crt;
var a:array[1..20] of integer;
b:array[1..20] of integer;
i,j,k,min,max:integer;
begin
writeln('Первый массив: ');
for i:=1 to 20 do begin
a[i]:=random(50-10+1)+10;
write(a[i]:3);
end;
writeln;
writeln('Второй массив: ');
for j:=1 to 20 do begin
b[j]:=random(90-30+1)+30;
write(b[j]:3);
end;
writeln;
min:=60;
writeln('Первый массив в порядке возрастания: ');
for i:=1 to 20 do begin
for j:=1 to 20 do begin
if a[j]<min then begin min:=a[j]; k:=j; end;
end;
a[k]:=60;
write(min:3);
min:=60;
end;
writeln;
max:=0;
writeln('Второй массив в порядке убывания: ');
for j:=1 to 20 do begin
for i:=1 to 20 do begin
if b[i]>max then begin max:=b[i]; k:=i; end;
end;
write(max:3);
b[k]:=0;
max:=0;
end;
writeln;
end.
Насчёт среднего арифметического мне не понятно: среднее арифметическое каких повторяющихся чисел брать? В каждом массиве, или в двух массивах одновременно? И учитывать ли то, что числа в массиве могут повторяться. Именно поэтому я не включил этого в код.
5
Объяснение:
Здесь также же петрушка,что и подобное задание, разница лишь в условии. Здесь перемещение должно происходить тогда, когда последняя цифра а[i] равняется всему числу а[0].массив такой:
8, 3, 16, 24, 35, 18, 4, 72, 8, 99, 44
И смена мест происходит не а0 с аi, а аi c a(i+1), т.е а0 никак не меняется.
Кароче, дашло до 18 при а5 и поменялся массив так:
8, 3, 16, 24, 35, 4, 18, 72, 8, 99, 44
Теперь смотрим: а6 тоже заканчивается на 8, значит трансформируем массив опять:
8, 3, 16, 24, 35, 4, 72, 18, 8, 99, 44
И опять он встал на нашем пути. И так будет до конца массива. И это случится действительно 5 раз.