Дано два одномерных массива. Найти сумму минимальных элементов массивов с использованием минимального количества операторов цикла — Pascal(Паскаль)

var
  a,b:array[1..100]of integer;
  an,bn,ak,bk,amin,bmin,i,s:integer;
begin
  write('Vvedite dlinu pervogo massiva: ');
  readln(an);
  write('Vvedite perviy massiv: ');
  for i:=1 to an do read(a[i]);
  readln;
  write('Vvedite dlinu vtorogo massiva: ');
  readln(bn);
  write('Vvedite vtoroy massiv: ');
  for i:=1 to bn do read(b[i]);
  readln;
  ak:=1;
  bk:=1;
  amin:=a[1];
  bmin:=b[1];
  while not ((ak=an) and (bk=bn)) do
  begin
    if akthen
    begin
      inc(ak);
      if a[ak]then amin:=a[ak];
    end;
    if bkthen
    begin
      inc(bk);
      if b[bk]then bmin:=b[bk];
    end;
  end;
  s:=amin+bmin;
  write('Perviy massiv: ');
  for i:=1 to an do write(a[i],' ');
  writeln;
  write('Vtoroy massiv: ');
  for i:=1 to bn do write(b[i],' ');
  writeln;
  writeln('Summa min elementov massivov: ',s);
  readln;

Leave a Comment