Вопрос по информатике:
Помогите, пожалуйста, как можно скорее!! 1.Заполнить массив из 5 элем. случайными числами из диапазона (-64;56)Вывести массив на экран.
2.Заполнить массив из 8 элементов с клавиатуры, найти произведение его элементов. Вывести его на экран.
3.Заполнить массив из 8 элементов с клавиатуры. Найти произведение его элементов, стоящих в нечетных местах. Вывести его на экран. Огромное - огромное спасибо тому, кто напишет!!
- 25.10.2015 07:13
- Информатика
- remove_red_eye 17585
- thumb_up 24
Ответы и объяснения 1
var mas:array [1..5]of integer;i:integer;
begin
for i:=1 to 5 do
mas[i]:=Random(121)-64;
for i:=1 to 5 do
Writeln(mas[i])
end.
2) program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
p:=p*mas[i];
end;
Writeln(p)
end.
3)program wk;
var mas:array [1..8] of integer;i:integer;p:real;
begin
p:=1;
for i:=1 to 8 do
begin
readln(mas[i]);
if (i mod 2 0)then p:=p*mas[i];
end;
Writeln(p)
end.
- 27.10.2015 00:58
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.