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

переписать из паскаля в с++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Переворот слов в строке char http://www.cyberforum.ru/cpp-beginners/thread1004881.html
Из строки со словами, разделенными одним или несколькими пробелами, получить новую строку с перевернутыми словами. (из "мама мыла раму" получить "амам алым умар"). Вот моя наработка. Выделе слова и...
C++ Одномерный массив Помогите написать программу на С++. Задание: "Отсортировать по возрастанию только положительные элементы массива." http://www.cyberforum.ru/cpp-beginners/thread1004879.html
Вывести все 3-х значные числа, цифры которых находятся в порядке возрастания C++
Пргорамма С++ Надо вывести все 3-х...
Сортировка по алфавиту структуры C++
Прошу помощи, так как уже просто несколько дней подряд никак не получается сделать лабу по программированию. Препод у нас не самый лучший, далеко не самый.. На консультации уделил мне 2-3 минуты, все...
C++ Создать класс гараж, имеющий площадь http://www.cyberforum.ru/cpp-beginners/thread1004835.html
Задача 1 Создать класс гараж, имеющий площадь. Определить конструкторы и методы доступа. Создать класс дом, содержащий комнаты, кухню (ее площадь) и гараж. Определить производный класс дача...
C++ массивы и Вложенные циклы Дано натуральное число n. Получить все простые делители этого числа.пацаны помогите решить подробнее

Показать сообщение отдельно
ZayacV
2 / 2 / 2
Регистрация: 27.10.2013
Сообщений: 72

переписать из паскаля в с++ - C++

11.11.2013, 21:13. Просмотров 220. Ответов 1
Метки (Все метки)

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
var
    n, i, max, cnt : Integer;
    a : array [1..100] of Integer;
    
begin
    ReadLn (n);
    
    for i := 1 to n do
        Read (a[i]);
        
    cnt := 1;
    max := a[1];
    
    for i := 2 to n do begin
        if max = a[i] then Inc (cnt);
        if max < a[i] then begin
            max := a[i];
            cnt := 1
        end
    end;
    
    WriteLn (max, ' ', cnt)
            
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru