Среди множеств книга, бензин, врач, молоко, строитель, учебник, жидкость, справочник, человек, найдите шесть пар, между которыми
Аша [612]
Учебник-книга справочник-книга бензин-жидкость молоко-жидкость врач-человек, строитель-<span>человек</span>
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.
1.Клавиатура это графическая информация? (Нет)
2.Самая главная часть компьютера это колонка? (Нет)
3.Информатика изучает компьютеры? (Нет)
4.С помощью зрения человек <span>получает наибольшее количество информации? (Да)
5.В кодирование входят ребусы? (Да)
</span>
var
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.