Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Дагер
0 / 0 / 0
Регистрация: 27.09.2012
Сообщений: 23
#1

Найти произведение отрицательных элементов массива значение которых больше C

01.11.2012, 15:05. Просмотров 1060. Ответов 1
Метки нет (Все метки)

Дан одномерный массив из 10-ти целых чисел,заполненные случайным образом:
a)Найти произведение отрицательных элементов массива значение которых больше C и вывести те элементы значение которых кратно 2 и 5.
б)Заменить последний отрицательный элемент нулем.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 15:05
Ответы с готовыми решениями:

Найти произведение отрицательных элементов массива, значение которых кратно 2 и 5
Дан одномерный массив из 10 целых чисел, заполненный случайным образом. а)...

Найти номера строк массива, в которых положительных элементов больше, чем отрицательных
Найти номера строк массива, в которых положительных элементов больше, чем...

Найти количество элементов массива, значение которых больше его индекса
Помогите с задачей, сам вроде сделал, но затрудняюсь модуль к ней написать...

Найти сумму элементов массива с нечетными индексами и вывести те элементы, значение которых больше 5 и меньше 10
Дан одномерный массив из 10 целых чисел заполненный случайным образом. а)...

Произведение второго и четвертого элементов массива, значения которых больше 3
Напишите программу нахождения произведения второго и четвертого элементов,...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,689
Записей в блоге: 1
01.11.2012, 15:18 #2
Лучший ответ Сообщение было отмечено Дагер как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Const n=10;
Var A:array[1..n] of integer;
    i,c,pr,j:integer;
Begin
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
    End;
    writeln;
    write('Введите C: ');readln(c);
    pr:=1;
    writeln('Элменты которые кратны 2 и 5: ');
    For i:=1 to n do
    Begin
      if (A[i]<0)and(A[i]>c) then pr:=pr*A[i];
      if (A[i] mod 2 = 0)and(A[i] mod 5 =0) then write(A[i]:4);
    End;
    writeln;
    writeln('Проивездение отрицательных которые меньше c: ',pr);
    j:=0;
    For i:=1 to n do
     if A[i]<0 then j:=i;
    if j>0 then 
    Begin
     writeln('Преобразованный');
     A[j]:=0;
     For i:=1 to n do
      write(A[i]:4);
    End
    else writeln('Нет отрицательных');
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2012, 15:18

Найти все столбцы матрицы, произведение элементов которых больше 20
Помогите, пожалуйста! Дан двумерный массив. Найти все столбцы, произведение...

Найти произведение отрицательных элементов массива
Исправьте пожалуйста,если не прав. const k=100; var i,s,n:integer;...

Найти произведение отрицательных элементов массива
В одномерном массиве, состоящем из n вещественных элементов, вычислить:...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru