Форум программистов, компьютерный форум CyberForum.ru

Нахождение суммы элементов массива. Перевод с Pascal - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Чем заменить calloc? http://www.cyberforum.ru/cpp-beginners/thread1162171.html
Здравствуйте, подскажите, как можно заменить str2 = (char*)calloc(strlen(str1) + 1, 1); на простое выделение в С++? Пробовал так : str2 = new char(strlen(str1) + 1); Не идет...
C++ Как занести в файл многочлен типа 5х^4-3х^3+15х^2-4 как занести в файл многочлен типа чтобы потим можно было его использовать http://www.cyberforum.ru/cpp-beginners/thread1162164.html
Найти сумму элементов массива, расположенных после первого положительного элемента C++
В одномерном массиве, состоящем из n вещественных элементов, вычислить: сумму элементов массива, расположенных после первого положительного элемента. на Си++, пожалуйста))
C++ Сдвиг влево на один бит
void Bitstring::shl() { int carry=!!(str&0x80000000); str<<=1; str|=carry; str<<=1; } Объясните пожалуйста что значит это "str&0x80000000"
C++ Определить является ли сумма элементов строк равной сумме элементов столбцов http://www.cyberforum.ru/cpp-beginners/thread1162143.html
Статическая память. Двумерный массив. Дан массив целых чисел. Определить является ли сумма элементов строк равной сумме элементов столбцов.
C++ Поиск всех чисел в строке, Регулярные выражения, CString Здравствуйте Уважаемые Дамы и господа, Подскажите пожалуйста как найти все числа в строке CString и перевести их в массив. Сейчас сделано вот так , CString str = "-kk-011; for(int a = 1;i<123; i--) 0xa11 wkjfl;sdk -11; "; z = str.FindOneOf(L"01234567890"); swscanf_s(str, L"%i", &a); Получается довольно неплохо, ищет все положительные числа, восьмеричные, шестнадцатеричные. Но я не... подробнее

Показать сообщение отдельно
steps
32 / 5 / 0
Регистрация: 15.12.2013
Сообщений: 72
29.04.2014, 23:00     Нахождение суммы элементов массива. Перевод с Pascal
Помогите пожалуйста переделать код с паскаля на с++, очень срочно. Спасибо
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
program massiv;
var a:array[1..100] of integer;
    n,i,j,k:byte;
    s:integer;
begin
randomize;
write('Размер массива n=');
readln(n);
write('Введите элементы массива:');
s:=0;
for i:=1 to n do
 begin
 write('a[',i,']=');
  readln(a[i]);
  end;
for i:=1 to n do
 begin
  if a[i]>0 then s:=s+a[i];
 write(a[i],' ');
  if (a[i]>5) and (a[i]<7) then inc(k);
 end;
 writeln;
writeln('Сумма положительных= ',s);
writeln('Кол-во элементов удовл. условию= ',k);
readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 06:24. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru