Форум программистов, компьютерный форум, киберфорум
Наши страницы

Перевод из Pascal. Одномерный массив (сумма, произведение) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ передача файла в функцию http://www.cyberforum.ru/cpp-beginners/thread144100.html
#include <fstream> #include <iostream> //#include<clocale> using namespace std; int main() { //setlocale(LC_ALL, "rus"); char m ; int n;
C++ Чтение данных из файла Вот программа запись и чтение из файла. Сначала записываем данные о студенте(фамилия, год рождения, пол), а потом нужно считать из файла и вывести на экран инфу о студенте, год рождения которого... http://www.cyberforum.ru/cpp-beginners/thread144094.html
C++ Cистема резервирования билетов авиакомпании
Уважаемые Гуру! Помогите довести до ума этот код. Уже 3 часа сижу и никак к норме не могу привести, давно не занимался и сейчас каша в голове. Задание и то, что сделал ниже. Огромное спасибо!...
C++ подскажите как решить на С++
Матрицу А(n,n) разложить на слагаемые : А=B+C+D, где B-строго нижнетреугольная, С-диагональная, D-строго верхнетреугольная матрицы того же размера. Для экономии памяти матрицы B,C,D хранить в...
C++ Строки и одномерные массивы http://www.cyberforum.ru/cpp-beginners/thread144039.html
нужно решить задачку: Дано стихотворение А.С. Пушкина. Сколько раз в каждой строке встречается данный символ? Никогда со строками не работала, так что помогите =(
C++ Теоретические вопросы по С++ Нужна помощь в ответах на несколько вопросов. Помогите плз!:) 1) Как инициализировать переменную, являющуюся приватным статическим членом класса? 2) Если при создании переменной программист ее... подробнее

Показать сообщение отдельно
Best-pm07
..:::BesT:::..
7 / 7 / 1
Регистрация: 19.03.2009
Сообщений: 195

Перевод из Pascal. Одномерный массив (сумма, произведение) - C++

11.06.2010, 08:42. Просмотров 700. Ответов 15
Метки (Все метки)

программа вычисляет:
1) произведение отрицательных элементов массива
2) сумму положительных элементов массива, расположенных до максимального элемента
Нужен только всего лишь перевод на С++, прошу помощи

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array[1..100] of integer;
    n,i,sum,mult:integer;
    max:byte;
begin
write('n = ');
readln(n);
for i:=1 to n do
  read(a[i]); {ввод через пробел}
mult:=1;
max:=0;
for i:=1 to n do
  begin
    if a[i]<0 then mult:=mult*a[i];
    if a[i]>max then max:=i;
  end;
sum:=0;
for i:=1 to max-1 do {(max-1) если максимальный элемент не включаем, иначе до max}
  if a[i]>0 then sum:=sum+a[i];
writeln('произведение отрицательных элементов: ',mult);
writeln('сумма положительных до макс: ', sum);
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.