Составьте программку, которая сформировывает массив из 12 случайных целых чисел ,

Составьте программку, которая сформировывает массив из 12 случайных целых чисел , принадлежащих промежутку [-40; 40], и вычесляет сумму положительных чисел

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

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

var

k:integer;

begin

k:=0;

for i:=1 to 12 do begin

a[i]:=random(100)-40;

writeln(a[i]);

end;

for i:=1 to 12 do

if a[i]gt;0 then k:=k+a[i];

writeln(k);

end.

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


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

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

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

Войти на сайт