Регистрация
Войти
Стать экспертом Правила
Информатика

СРОЧНО ДАЮ 65 поинтов ЗАДАНИЕ :заполнить массив из 10 элементов случайными числами из отрезков [-20;20] вывести массив на экран в строку найти сумму элементов . найти количество отрицательный элементов и количество нечетных элементов ВСЕ ДЛЯ ПАСКАЛЯ

ОТВЕТЫ

Program sadadasf;

var i,k: integer;    

A: Array[1..20] of integer;

begin

For i:=1 to 20 do  

begin    

k:=random(41)-20;    

A[i]:=k;  

end;

end.

34
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам