Регистрация
Razin2015
27.05.2023 14:24
Информатика
Есть ответ 👍

Сформировать и вывести на экран массив, элементы которого заданы датчиком
случайных чисел на интервале [-19, 26] (размер произвольный). Найти произведение
элементов с нечетными номерами.
Program proisvednechet;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write (‘Сколько элементов? ’); Readln (n);
P:=1;
For i=1 to n do
begin
a[i]:= Random(46)-19;
writeln (a[i],’ ‘);
if i mod 2 <> 0 then P=P*a[i];
end;
Writeln(‘Произведение элементов с нечетными номерами:’, P);
End.

123
245
Посмотреть ответы 1

Ответы на вопрос:

vzlomhanter230
vzlomhanter230
4,4(35 оценок)

Всё Гбайт = 1024 Мбайта

1 Мбайт = 1024 КБайта

1 Кбайт = 1024 Байта

1 Байт = 8 бит

5 гбайт = 5 * 1024 * 1024 * 1024 * 8 = 42949672960 Бит

ответ: 42949672960 бит

Популярно: Информатика