Question

Заполнить линейный массив по формуле: c[i]=6*x-i/7-6;

Answer 1

program raf105;

var c:array[1..999] of real;

i,x,n:integer;

begin

write('Введите количество элементов массива: ');

readln(n);

write('Введите значение X: ');

readln(x);

writeln('Элементы массива:');

for i:=1 to n do

begin

 c[i]:= 6*x-i/7-6;

 writeln(c[i]);

end;

end.

     

Язык программирования PascalABC