Составьте программку которая заполняет массив b 1..8 случайными целыми числами в
Составьте программку которая заполняет массив b 1..8 случайными целыми числами в диапазоне от 1 до 10 и обретает количество пар частей с чётными значениями пример ввода: начальный массив: 10 2 4 1 3 5 7 8 количество пар чётных частей = 2 это пары (10,2),(2,4)
Задать свой вопросДля составления таковой программки может быть применена последующая логика: мы создаем массив и наполняем его числами.
Дальше сочиняем цикл, который будет осматривать каждый элемент массива от первого до предпоследнего включительно. Нам не нужен будет последний, так как он будет с кем-то в паре, если будет четным. А если нет то пары для него больше не будет, поэтому что он заключительный.
Еще нужен будет внутренний цикл, проверяющий пару для элемента первого цикла:
var a:array [1..8] of integer;
temp_para : integer;
begin
for i:integer1 to 8 do
a[i] random(9) + 1;
for i:integer1 to 7 do
begin
if (a[i] mod 2 = 0) then
temp_paraa a[i];
for k:integer I + 1 to 8 do
if (a[k] mod 2 = 0) then
begin
writeln(Найдена пара , a[i], , , a[k]);
break;
end;
end;
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Химия.
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.