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

Array52. Дан массив $$A$$ размера $$N$$. Сформировать новый массив B того же размера, элементы которого определяются следующим образом:

$$B_K =\begin{cases}2*A_K, \text { if } A_K \lt 5,\\A_K/2, \text{ else }\end{cases}$$.

Решение:

program Array52;
var
  a,b: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;

  for k:=1 to N do
      if a[k]<5 then b[k]:=2*a[k]
      else b[k]:=a[k]/2;

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

program Array52;

var

a,b: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;

for k:=1 to N do

if a[k]<5 then b[k]:=2*a[k]

else b[k]:=a[k]/2;

Writeln('B: ');

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

end.

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

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

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

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