Помогите пожалуйста составить программку верно!!!!!Вот условие:Написать на Паскале

Помогите пожалуйста составить программку верно!!!!!

Вот условие:
Написать на Паскале программу, которая запрашивает с клавиатуры N случайных целых чисел и разыскивает их сумму. Число N вводится с клавиатуры. Создать для сделанной программки не наименее трёх тестов и проверить на их корректность работы метода.

На Паскале

Задать свой вопрос
1 ответ
Program sum;

var
  n, i, s: integer;
  a: array[1..1000] of integer;

begin
  Write('Vvedite n');
  readln(n);
  Write('Vvedite n chisel');
  for i := 1 to n do read(a[i]);S := 0;for i := 1 to n do S := S + a[i];write('Summa ravna', s)
end.

проверь так?

Аня Бринева
да, спасибо
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт