Найти сумму минимальных элементов массивов с использованием минимального количества операторов цикла

Категория: Delphi/Pascal
2011-08-26 21:49:17

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

code: #pascal
  1. var
  2.   a,b:array[1..100]of integer;
  3.   an,bn,ak,bk,amin,bmin,i,s:integer;
  4. begin
  5.   write('Vvedite dlinu pervogo massiva: ');
  6.   readln(an);
  7.   write('Vvedite perviy massiv: ');
  8.   for i:=1 to an do read(a[i]);
  9.   readln;
  10.   write('Vvedite dlinu vtorogo massiva: ');
  11.   readln(bn);
  12.   write('Vvedite vtoroy massiv: ');
  13.   for i:=1 to bn do read(b[i]);
  14.   readln;
  15.   ak:=1;
  16.   bk:=1;
  17.   amin:=a[1];
  18.   bmin:=b[1];
  19.   while not ((ak=an) and (bk=bn)) do
  20.   begin
  21.     if akthen
  22.     begin
  23.       inc(ak);
  24.       if a[ak]then amin:=a[ak];
  25.     end;
  26.     if bkthen
  27.     begin
  28.       inc(bk);
  29.       if b[bk]then bmin:=b[bk];
  30.     end;
  31.   end;
  32.   s:=amin+bmin;
  33.   write('Perviy massiv: ');
  34.   for i:=1 to an do write(a[i],' ');
  35.   writeln;
  36.   write('Vtoroy massiv: ');
  37.   for i:=1 to bn do write(b[i],' ');
  38.   writeln;
  39.   writeln('Summa min elementov massivov: ',s);
  40.   readln;
  41. end.
Поделиться:

Похожие статьи:

теги: студенты, одномерный массив, массив, консольное приложение