Заполнить массив по формуле, и вычислить сумму элементов - PascalABC.NET
Формулировка задачи:
Заполнить массив значениями, вычисляемыми по формуле: a[i]:=sin i*i2 Вывести элементы этого массива на экран компьютера и найти сумму всех значений.
Решение задачи: «Заполнить массив по формуле, и вычислить сумму элементов»
textual
Листинг программы
program pr;
var
a:array [1..100] of real;
i,n:integer;
begin
writeln('Введите размер массива');
readln(n);
for i:=1 to n do begin
a[i]:=sin(i*(i*i)); // если ты имел ввиду sin(i*i^2)
write(' ',a[i]:3);
end;
end.