Дан массив a:erray [1..100] of realСоставить программку нахождения суммы его элементов

Дан массив a:erray [1..100] of real
Составить программу нахождения суммы его частей

Задать свой вопрос
Троеглазова Галина
Ну если erray, то конечно... for i:=1 to 100 do s:=s+a[i]
1 ответ
Program a;
uses crt;
var i:integer;
a: array [1..100] of real;
s: real;

begin
clrscr;
for i:=1 to 100 do begin
readln (a [i]);
s:=s+a [i];
end;
writeln (s);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт