Решаем задачи Абрамян на Паскале. Array53

Array53. Даны два массива $$A$$ и $$B$$ одинакового размера $$N$$. Сформировать новый массив $$C$$ того же размера, каждый элемент которого равен максимальному из элементов массивов $$A$$ и $$B$$ с тем же индексом.

Решение:

program Array53;
var
  a,b,c:array[1..10] of real;
  N,k:Integer;


begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(a[k]);
   end;

  Writeln('B: ');
  for k:=1 to N do
   begin
    write(k,' :');
    readln(b[k]);
   end;

  for k:=1 to N do
      if a[k]<b[k] then c[k]:=b[k]
      else c[k]:=a[k];

  Writeln('C: ');
  for k:=1 to N do writeln(k,' :',c[k]);
end.

program Array53;

var

a,b,c:array[1..10] of real;

N,k:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for k:=1 to N do

begin

write(k,' :');

readln(a[k]);

end;

Writeln('B: ');

for k:=1 to N do

begin

write(k,' :');

readln(b[k]);

end;

for k:=1 to N do

if a[k]<b[k] then c[k]:=b[k]

else c[k]:=a[k];

Writeln('C: ');

for k:=1 to N do writeln(k,' :',c[k]);

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array53

Комментарии:

Добавить комментарий Отменить ответ