Найдите сумму первых 10 чисел (1 2 3 4 5 6

Найдите сумму первых 10 чисел (1 2 3 4 5 6 7 8 9 10) на языке Паскаль

Задать свой вопрос
1 ответ
Var
a: array[1..10] of integer;
k; integer;
Begin
For k:=1 to 10 do begin
Read(a[k]);
s:=s+a[k];
end;
Writeln(s)
Readln;
end.

Milana Pengacheva
Мне кажется не обязательно с массивом. Можно и просто через for
Тема Прески
напиши как
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт