УМОЛЯЮ ПОМОГИТЕ!!!! ЛЮДИ Добросердечные!!!Напишите программку нахождения суммы массива констант

УМОЛЯЮ ПОМОГИТЕ!!!! ЛЮДИ Добросердечные!!!
Напишите программку нахождения суммы массива констант

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

Ответ:

Program xxxxx;

uses crt;

const n=100;

var

a:array[1..n] of integer;

s,i:integer;

begin

clrscr;

randomize;

for i:=1 to n do

begin

  a[i]:= random(10)+1;

  s:=s+a[i];

end;

end.

Разъясненье:

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт