Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
mandar1n
0 / 0 / 1
Регистрация: 23.12.2014
Сообщений: 29
1

Вычислит произведение элементов массива с нечетными номерами

24.12.2014, 22:49. Просмотров 278. Ответов 1
Метки нет (Все метки)

Кликните здесь для просмотра всего текста
В одномерном массиве А, состоящем из N действительных элементов, вычислить:
a) произведение элементов массива с нечетными номерами;
b) количество элементов, удовлетворяющих условию 5< http://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{i} или http://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{i} <= -3


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
    a : Array[1..100] Of Real;
    i, n : Byte;
    mult : Real = 1;
    count : Byte = 0;
begin
    Randomize;
    Write('n='); ReadLn(n);
    for i := 1 to n do
    begin
        a[i] := 50 * Random() - 25;
        Write(a[i]:7:2);
        if (Odd(i)) then
            mult := mult * a[i];
        if ((a[i] > 5) Or (a[i] <= -3)) then
            Inc(count);
    end;
    WriteLn;
    WriteLn('mult=', mult:0:3);
    WriteLn('count=', count);
end.
Добавлено через 5 часов 7 минут
Исправте код плз!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.12.2014, 22:49
Ответы с готовыми решениями:

Найти сумму элементов с четными номерами и произведение элементов с нечетными номерами
Дан масим А. Найти сумму елементов стоящих на парном месте и произведение стоящих на непарном...

Вычислить сумму элементов массива с нечетными номерами
Здравствуйте! Помогите пожалуйста написать программу. Срочно нужно сдать. В одномерном массиве,...

Найти сумму элементов массива с нечетными номерами
Ребят,нужно решить в Pascal: В одномерном массиве, состоящем из n вещественных элементов,...

Вычислить сумму элементов массива с нечетными номерами
1. Цель работы Изучить способы представления массивов в памяти ЭВМ, получить прак- тические...

Вычислить сумму элементов массива с нечетными номерами
В одномерном массиве, состоящем из п вещественных элементов, вычислить: 1. Сумму элементов массива...

1
Joy
Эксперт Pascal/Delphi
2170 / 1198 / 1437
Регистрация: 29.08.2014
Сообщений: 4,388
25.12.2014, 05:32 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  a : Array[1..100] Of Real;
  i, n : Byte;
  mult : Real;
 count : Byte;
begin
  Randomize; mult:=1.0;count:=0;
  Write('n='); ReadLn(n);
  for i := 1 to n do
    begin
     a[i] := 50 * Random- 25;
     Write(a[i]:7:2);
     if (Odd(i)) then
       mult := mult * a[i];
       if ((a[i] > 5) Or (a[i] <= -3)) then
            Inc(count);
     end;
     WriteLn;
    WriteLn('mult=', mult:0:3);
    WriteLn('count=', count);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2014, 05:32

Образовать массив Т из ненулевых элементов массива А, с нечетными номерами.
Дан массив А из N целых чисел.Образовать массив Т из ненулевых элементов массива А, с нечетными...

Найти среднее геометрическое элементов с нечетными номерами массива
Здравствуйте гуру программирования,мне очень нужна ваша помощь,я проболела месяц и тут мне...

Найти максимальный элемент элементов массива с нечетными номерами
Надо сделать эту Задачу с помощью Процедур!!!! 1.Дан Массив A Размера N.Найти максимальный элемент...


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

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

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