Var a, b: array[1..10] of integer; i, min, max, sum: integer; begin min := 10; for i := 1 to 10 do begin write('Введите ',i,'-ый элемент первого массива '); Readln(a[i]); write('Введите ',i,'-ый элемент второго массива '); Readln(b[i]); if a[i] < min then min := a[i]; if b[i] > max then max := b[i]; end; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); writeln; writeln('Минимальное первого массива ', min); writeln('Максимальное первого массива ', max); sum := min + max; for i := 1 to 10 do if (i mod 2) = 0 then a[i] := sum else b[i] := sum; for i := 1 to 10 do write(a[i], ' '); Writeln; for i := 1 to 10 do write(b[i], ' '); end.
a, b: array[1..10] of integer;
i, min, max, sum: integer;
begin
min := 10;
for i := 1 to 10 do begin
write('Введите ',i,'-ый элемент первого массива ');
Readln(a[i]);
write('Введите ',i,'-ый элемент второго массива ');
Readln(b[i]);
if a[i] < min then min := a[i];
if b[i] > max then max := b[i];
end;
for i := 1 to 10 do
write(a[i], ' ');
Writeln;
for i := 1 to 10 do
write(b[i], ' ');
writeln;
writeln('Минимальное первого массива ', min); writeln('Максимальное первого массива ', max);
sum := min + max;
for i := 1 to 10 do
if (i mod 2) = 0 then
a[i] := sum else
b[i] := sum;
for i := 1 to 10 do
write(a[i], ' ');
Writeln;
for i := 1 to 10 do
write(b[i], ' ');
end.