Вопрос по информатике:
Дан массив из 30 элементов, принимающих значения от 0 до 100. Найти произведение двузначных чётных элементов массива, которые начинаются с цифры 5, 6 или 7.Гарантируется, что в исходном массиве есть хотя бы один такой элемент.
- 02.04.2016 07:57
- Информатика
- remove_red_eye 8680
- thumb_up 51
Ответы и объяснения 1
Pascal:
var a:array [1..30] of integer;
i:integer;
p:longint;
begin
p:=1;
randomize;
a[1]:=random(21)+50;
for i:=2 to 29 do a[i]:=random(100);
a[30]:=random(21)+50;
for i:=1 to 30 do write (a[i],' ');
writeln;
for i:=1 to 30 do
if (a[i] in [10..99]) and (a[i] mod 2 = 0) and ((a[i] div 10) in [5..7]) then p:=p*a[i];
writeln ('Proizvedenie: ',p);
readln;
end.
C++:
#include
#include
#include
using namespace std;
int main()
{
int a[30],i;
unsigned long long p = 1;
srand (time(NULL));
a[0] = rand()%70+50;
for (i = 1; i<29; i++)
a[i] = rand()%100;
a[29] = rand()%7+50;
for (i = 0; i<30; i++)
cout <
cout <
- 02.04.2016 23:54
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.