Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.
Ответы:
24-01-2011 17:58
const n = 20;var a: array[1..n] of integer; i, s: integer;begin randomize; for i := 1 to n do begin a[i] := random(20) + 20; write(a[i], ); if i mod 2 = 1 then s := s + a[i]; end; writeln(); writeln(s);end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Паскаль для решения следующей задачи: заполнить ЦЕЛОЧИСЛЕННЫЙ массив 20-ю случайными элементами в диапазоне от 20 до 40 и найти сумму лишь НЕЧЁТНЫХ номеров (элементов) массива.» от пользователя ОЛЕСЯ ПОТАПЕНКО в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!