Обработка одномерных массивов Pascal ABC

[БаирАбушеев]

Обработка одномерных массивов Pascal ABC

помогите, пожалуйста, только пожалуйста прошу сильно мудреных программ не надо
:tehnari_ru_837:

 

[interacia]

Здравствуйте я с глупыми вопросом по поводу первого рисунка tehno015
1) там суммируемое выражение в скобочках что значит:
(Xi в квадрате делённое на i) или (Xi умноженное на 2 делённое на i).

2) И почему цикл от 1 до 20 а массив от 1 до 50.
3) как определять значение элементов массива?
Варианты ответа
А) элемент массива случайная величина на интервале от a до b.
Б) значение элементов массива задается пользователем
В) Значение элементов определенно в программе путем прямого присвоения значения.
Г) Значение элементов определенно по какому ни будь закону (к примеру математической функцией)
Д) свой оригинальный вариант.
4) Значение Z куда девать
Варианты ответа
А) никуда.
Б) вывести на консоль
В) сохранить в каком ни будь файле.
Г) свой оригинальный вариант.

 

[interacia]

По поводу второго рисунка.

program Array1;
var
i:integer; // счетчик в цикле
N:integer; // размер массива
a: array [1..100] of integer;
b: array [1..100] of integer;
begin
writeln('Введите N (N<=100)');
 readln(N);
for i:=1 to n do begin write('a[',i,']=');readln(A[i]);end;
b[1]:=a[1];
for i:=2 to N do b[i]:=b[i-1]+a[i];
writeln;
write('a[]= ');
for i:=1 to N do write(' ',a[i]);
writeln;
write('b[]= ');
for i:=1 to N do write(' ',b[i]);
end.

 

[БаирАбушеев]

я могу ответить только на 1 вопрос:Xi в квадрате делённое на i

 

[interacia]

Из 4 вопросов ответили только на один.
Это крепкая двойка.
Завтра с родителями к модератору форума.tehno001 (шутка).

program Array11;
var
Z:real;
i:integer; // счетчик в цикле
X: array [1..50] of real;
begin
 for i:=1 to 50 do X[i]:=random(50);
Z:=0;
for i:=1 to 20 do  Z:=Z+sqr(X[i])/i;
writeln('Otvet Z=',Z);
end.

 

[БаирАбушеев]

:tehnari_ru_942: окау