Помогите, пожалуйста. Паскаль ABC. Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите произведение элементов, имеющих
10-11 класс
|
нечетные индексы. Выведите на экран исходный массив и полученное произведение.
const n = 10;
var a :array [1..n] of integer; i, p :integer;
begin
randomize; for i:= 1 to n do a[i]:= random(100); p:= 1; for i:= 1 to n do if i mod 2 = 1 then p:= p * a[i]; for i:= 1 to n do write(a[i],' '); writeln; writeln(p);
end.
Другие вопросы из категории
а) сетевое окружение
б) мой компьютер
в) панель управления
2 Программы работающие на компьютере можно разделить на
а) прикладные, системные, служебные
б) внутренние, внешние
в) драйверы, программы-оболочки, утилиты
3 Методами защиты от компьютерных вирусов являются
а) программные, аппаратные, организационные
б) прикладные, системные, инструментальные
в) программные, системные, прикладные
4 Информационное-поисковые системы являются
а) прикладным ПО
б) Системным ПО
в) Служебным ПО
5 Антивирусные программы относятся к следующему методу защиты
а) аппаратному
б) организационному
в) программному
6 основным недостатком ОС Windows является
а) примитивный пользовательский интерфейс
б) поддержка масштабируемых шрифтов
в) нет средств защиты от повреждения ОС
1.
1101010101101000101010101000001001000101001100101(2)-> Х (8)
2. 1010111111111111111111111100000010101000000(2)-> Х (16)
3. 12120011212121210121210112(3)-> Х (9)
Читайте также
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
Задайте массив из 10 элементов с помощью датчика случайных чисел. Найдите разность наибольшего и наименьшего элементов. Выведите на экран полученный массив и полученную разность.
на минимальный. Выведите на экран исходный и полученный массивы.
Выведите на экран исходный и полученный массив. На Паскале