• Помогите с Turbo Pascal.. Надо написать программу
    Напишите программу Генератором случайных чисел генерируется последовательность 50-ти случайных чисел из диапазона [-10;20]. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

Ответы 1

  • var x: array[1..50] of longint;var i,a : longint;Beginrandomize;for i:= 1 to 50 dobegin;x[i] := -10 + random(30);writeln('Элемент №',i,' массива Х = ',x[i]);end;for i:=1 to 50 dobegin;if (i mod 2 <> 0) then a:=a+x[i];end;Writeln('Сумма элементов с нечетным номером = ',a);readln(a);end.//Я поверил ей на слова, что сумма равна именно такому числу. Если хотите - проверьте.//Пример работы программы в приложении
    answer img
    • Автор:

      june25
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years