Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3

@Николай Давыдов · Регистрация: 15.12.2011

Ребят помогите пожалуйста с двумя задачами "одномерные массивы"

1)Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3.

2)Ввести одномерный массив A из N элементов. Каждый элемент, стоящий на нечетной позиции в массиве заменить остатком от деления этого элемента на 7. Массив вывести до и после преобразования.

@Slim_py · 18.12.2011, 18:26

1

Pascal

var a:array[1..13] of integer;
    i,p:integer;
begin
   p:=1;
   writeln('Ââåäèòå ìàññèâ');
   for i:=1 to 13 do
      begin
         readln(a[i]);
         if (a[i] mod 2=0) and not (a[i] mod 3=0)
            then p:=p*a[i];
      end;
   writeln('Ïðîèçâåäåíèå = ',p);
end.

@Zloi1u · 18.12.2011, 18:27

Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3.

Pascal

Uses CRT;
var
m: array[1..13] of integer;
i:byte;
p:real;
begin
p:=1;
for i:=1 to 13 do
begin
m[i]:=random(256);
write(m[i],' ');
if (m[i]mod 2= 0) and ( m[i]mod 3<>0) then
p:=p*m[i];
end;
Writeln;
writeln('p=',p);
readln;
end.

@Николай Давыдов · 18.12.2011, 18:34 **[ТС]**

Ребят спасибо огромное!! А кто нибудь знает как вторую решить?

@Zloi1u · 18.12.2011, 18:42

Pascal

Uses CRT;
var
m: array[1..1000] of integer;
i,n:byte;
 
begin
write('n=');
readln(n);
for i:=1 to n  do
begin
m[i]:=random(256);
write(m[i],' ');
end;
writeln;
for i:=1 to n  do
if (i mod 2 = 1) then
begin
m[i]:=m[i] div 7;
write(m[i],' ')
end
else  write(m[i],' ');
end.

@Николай Давыдов · 18.12.2011, 19:32 **[ТС]**

Спасибо большое очень выручили!!!

@pionnerka · 11.11.2013, 15:59

А можно еще к этому заданию блок схему попросить сделать?

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9
		1
	Одномерные массивы. Определить произведение элементов, которые без остатка делятся на 2 и не делятся на 3 18.12.2011, 18:01. Показов 4268. Ответов 6 Метки нет (Все метки) Ребят помогите пожалуйста с двумя задачами "одномерные массивы" 1)Ввести одномерный массив A из 13 элементов. Определить в нём произведение элементов чье значение без остатка делится на 2 и не делится на 3. 2)Ввести одномерный массив A из N элементов. Каждый элемент, стоящий на нечетной позиции в массиве заменить остатком от деления этого элемента на 7. Массив вывести до и после преобразования. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9
	18.12.2011, 18:34 [ТС]	4
	Ребят спасибо огромное!! А кто нибудь знает как вторую решить? 0

@Николай Давыдов 0 / 0 / 0 Регистрация: 15.12.2011 Сообщений: 9
	18.12.2011, 19:32 [ТС]	6
	Спасибо большое очень выручили!!! 0

@pionnerka 0 / 0 / 0 Регистрация: 08.11.2013 Сообщений: 6
	11.11.2013, 15:59	7
	А можно еще к этому заданию блок схему попросить сделать? 0

Опции темы