ТутРешу.Ру

Составьте программу, которая заполняет массив b [1…

Задание:

Составьте программу, которая заполняет массив b [1… 8] случайными целыми числами в диапазоне от 1 до 10 и находит количество пар элементов с четнымизначениями.

Решение:

var a: array[1… 10] of integer; //Массив целочисленных элементов а i, n: integer; //n — количество элементов, равных 1begin n: =0; //Обнуляем счетчик write ('Исходный массив: '); for i: =1 to 10 do {Заполняем массив случайными элементами от 1 до 10, распечатываем его и считаем количество элементов, равных 1} begin a[i]: =random (3); write (a[i], '); if a[i]=1 then n: =n+1; end; writeln; writeln ('Количество элементов, равных 1: ', n); end.




Знаете другой ответ?

Отправить свой ответ