Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 04.05.2017
Сообщений: 11
1

Pascal. Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов

04.05.2017, 04:38. Показов 2569. Ответов 1
Метки нет (Все метки)

Дан массив целых чисел из 14 элементов. Найти произведение первых трех отрицательных элементов
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2017, 04:38
Ответы с готовыми решениями:

Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных элементов
Дан массив А (10). Найти произведение индексов положительных элементов и количество отрицательных...

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

Дан массив чисел X=(x1,x2,...,xn). Найти сумму квадратов отрицательных элементов массива.
Ребята, очень прошу, пожалуйста помогите!!! Задача: Дан массив чисел X=(x1,x2,...,xn). Найти...

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

1
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
04.05.2017, 04:58 2
Лучший ответ Сообщение было отмечено 1zer0 как решение

Решение

1zer0,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program prog;
const n=14;
  var a:array [1..n] of integer;
      i,k,p:integer;
begin
  randomize;
  for i:=1 to n do 
    begin 
      a[i]:=random(20)-10;
      write(a[i]:4);
    end;
  writeln;  
  p:=1; k:=0;
  for i:=1 to n do begin
    if a[i]<0 then begin p:=p*a[i]; inc(k); end;
    if k=3 then break;
    end;
  if k=3 then writeln('произведение первых трех отрицательных элементов равно ',p)
    else writeln('отрицательных элементов нет или их меньше трех'); 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.05.2017, 04:58

Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.
ПОМОГИТЕ пож.... Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

Дан массив А целых чисел. Найти минимальный элемент среди элементов с нечётными индексами
составить программу для решения следующей задачи: Дан массив А целых чисел. Найти минимальный...

Дан массив из n-элементов.Найти число отрицательных элементов и их сумму
Дан массив из n-элементов.Найти число отрицательных элементов и их сумму помогите пожалуйста,плиз

Массив А из 10 элементов вводится с клавиатуры. Найти произведение отрицательных элементов
program b; const n=10; var a:array of integer; i,sum,count:integer; begin for i:=1 to n do...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru