Найти минимальное число среди заданных

@n-360 · Регистрация: 10.12.2012

Author24 — интернет-сервис помощи студентам

Даны два одномерных массива: A и B. Элементы массивов – вещественные числа. Найти минимальное число среди A_i+B_i , где i изменяется от 1 до 15.

@ermolay · 10.12.2012, 17:10

Pascal

const
  n=15;
var
  i,k,min: byte;
  a,b: array[1..n] of integer;
begin
  randomize;
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    b[i]:=random(99)+1;
  end;
  writeln('Массив А:');
  for i:=1 to n do
    write(a[i]:3);
  writeln;
  writeln('Массив B:');
  for i:=1 to n do
    write(b[i]:3);
  writeln;
  k:=1; min:=a[k]+b[k];
  for i:=2 to n do
    if a[i]+b[i]<min then 
    begin
      k:=i;
      min:=a[i]+b[i];
    end;
  writeln('Минимальная сумма = ',min,', элементы находятся на ',k,'-й позиции');
  readln;
end.

@n-360 0 / 0 / 0 Регистрация: 10.12.2012 Сообщений: 3
		1
	Найти минимальное число среди заданных 10.12.2012, 16:45. Показов 1700. Ответов 1 Метки нет (Все метки) Даны два одномерных массива: A и B. Элементы массивов – вещественные числа. Найти минимальное число среди A_i+B_i , где i изменяется от 1 до 15. 0

	10.12.2012, 17:10

Найти минимальное число среди заданных

Решение