Дан одномерный массив A[12],элементы которого вводятся с клавиатуры.Выяснить сколько нечётных элементов в массиве.

14.12.2011, 17:42. **Показов** 2641. **Ответов** 3

Author24 — интернет-сервис помощи студентам

Народ помогите два кода написать очень срочно надо,вот задачи.
1)Дан одномерный массив A[12],элементы которого вводятся с клавиатуры.Выяснить сколько нечётных элементов в массиве.

2)Найти произведение элементов матрицы размера 4х4 в нечетных строках.

Народ пожалуйста очень срочно надо.

Комментарий модератора

Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.

@Aladriel · 14.12.2011, 18:32

1.

Pascal

programm asd;
var
i,c,b: int;
begin
b:=0;
for i:=0 to 11 do begin
writeln('Введите элемент матрицы номер'+ IntToStr(i+1));
readln(c);
if c mod 2 <>0 tnen b:=b+1;
end;
writeln('Колво нечетных элементов'+IntToStr(b));
readln;
end.

Могут быть опечатки, проверь на работоспособность

Добавлено через 9 минут
2.

Pascal

program asd;
var 
m: array[0..16];
i,j,p,c: integer;
begin
p:=1;
for i:=0 to 3 do 
   for J:=0 to 3 do
      begin
       writeln('Введите элемент');
       readln(c);
       m[i,j]:=c;
       c:=0;
        if (i=0) or (i=2) then p:=p*m[i,j];
      end;
writeln('Произведение='+ IntToStr(p));
readln;
end.

14.12.2011, 18:37

Спасибо=)

Комментарий модератора

Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.

magirus · 14.12.2011, 21:39

Комментарий модератора

Диметриус, читаем правила в части касающейся именования тем