Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу: B[i]:=ai^2/i+a Или вот во вложении посмотрите седьмое задание. Это Паскаль.Заранее спасибо. - №1584141

Дан одномерный массив A состоящий из 50 элементов. Сформировать массив B по правилу: B[i]:=ai^2/i+a
Или вот во вложении посмотрите седьмое задание.
Это Паскаль.
Заранее спасибо.
- Предмет:
  Информатика
- Автор:
  tayloresp4y
- 6 лет назад

Ответы 2

Как я понимаю аi - элемент из массива A, что такое а -это либо какая -то константа либо формула дожна принять вид

В[i]:=(ai*ai)/(i+ai)

program MassivB;

Uses Crt;

type mas= array[1..50] of real;

var a,b:mas;

i:integer;

v:real;

procedure Auto;

var i:integer;

begin

randomize;

for i:=1 to 50 do a[i]:=25+random(21);

end;

procedure PrintMas(m:mas);

var j:integer;begin for j:=1 to 50 do write(mas[j]:5:2);

end;

begin

for i:=1 to 50 do

begin

v:=a[i]

b[i]:= (v*v) /(i+v)

end;

clrscr;

write ('Массив А:');

printmas(a)

writeln;

writeln;

write ('Массив B:');

printmas(b)

readkey;

end.
- Автор:
  aureliano
- 6 лет назад
- 0
constN = 50;

vara:array[1..N] of integer;b:array[1..N] of real;i:integer;

begin randomize; for i := 1 to N do begin a[i]:=100-random(201); b[i]:=sqr(a[i])/(i+a[i]); writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3); end;

end.
- Автор:
  dulce
- 6 лет назад
- 0
Добавить свой ответ

Еще вопросы

How much to ban the user?

1 hour 1 day 100 years