в массиве, состоящем из 20 случайных чисел в интервале [-10;10] количество

В массиве, состоящем из 20 случайных чисел в интервале [-10;10] количество и сумму частей которые больше 5

Задать свой вопрос
1 ответ
Var a: array[0..20] of Integer;
i,sum,count: Integer;
begin
sum:=0;
count:=0;
for i:=0 to 19 do
begin
a[i]:=random(21)-10;
writeln('Число ',i+1,': ',a[i]);
if a[i]gt;5 then
begin
sum:=sum+a[i];
count:=count+1;
end;
end;
writeln('Сумма: ',sum);
writeln('Кол-во: ',count);
end.
Ева Омелюсик
компилятор выдает ошибку, исправьте
Альбина Ваченкова
на рандоме
Ваня Петий
и не все ж числа должны быть больше 5
Семик Абаган
Поправил.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт