1. Информатика
  2. Программа которая находит

Программа которая находит произведение элементов массива стоящих на честных местах. Turbo Pascal. Информатика 9 класс. ​

davidkhatkin davidkhatkin    1   16.12.2020 15:19    1

Ответы
Лизик2007 Лизик2007  15.01.2021 15:21

var p,i: integer;

a:array[0..10] of integer;

begin

p:=1;

randomize;

for i:=1 to 10 do

begin

a[i]:=random(10);

write(a[i],' ');

if i mod 2 = 0 then

 p:=a[i]*p

end;

writeln;

writeln(p);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Andy01 Andy01  06.07.2019 17:00
Напишите функцию friend вида function friend (a, b: integer): boolean; функция должна определять, являются ли данные числа дружественными (подсказка: два натуральных числа называются...
анарочка555 анарочка555  06.07.2019 17:00
Великое изобретение человечества при при которой можно перекатать тяжелые предметы...
Karina3589 Karina3589  06.07.2019 17:00
7мб- сколько бит? 46 байт-сколько мб?...
bayrzhan bayrzhan  06.07.2019 17:00
Склавиатуры вводятся действительные положительные числа a,b,c,d.выясните,можно ли прямоугольник с длинами сторон а и b уместить внутри прямоугольника с длинами сторон c и d так,чтобы...
ilias1924 ilias1924  06.07.2019 17:00
Догадайтесь о каких носителях информации идёт речь искд амнкеь аскстеа ппрсиау секдиат агубам лфеш чевистерн...
togrul654 togrul654  06.04.2021 08:47
написать программу мовою паскаль яка при заданих параметрах довжини поперечного перерізу обчислює опори провідників та порівнює їх (у відношенні)​...
korekhova1986super korekhova1986super  06.04.2021 08:47
Нужна по Acess! Форми називати порядковим номером завдання. У заголовках форм - назви, зазначені в завданнях.1. На базі таблиці «студенти» побудувати форму з декількох елементів...
seslermarina200 seslermarina200  06.04.2021 08:50
Сделайте и прикрепите Acess Файл. 2. Побудувати складову форму «оцінки студента». Головна форма повинна містити код, номер групи, прізвище, ім я та по батькові студента, а підпорядкована...
Anya2587 Anya2587  06.04.2021 08:51
Установите соответствие между объектами и группами действий которые можно выполнять с ними​...
dgbimv dgbimv  06.04.2021 08:51
Дан целочисленный двумерный массив, размерности 6×4. Найти сумму и произведение всех элементов массива. Массив ввести с клавиатуры....

Популярные вопросы