Заполнить массив по формуле, и вычислить сумму элементов - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
