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

Переписать с паскаля на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Как заставить курсор перерисоваться? http://www.cyberforum.ru/cpp-beginners/thread536301.html
Это снова я. Дальше будет много не нужного текста без которого ты можешь обойтись и собственно вопрос наверху. Раньше задавал вопрос...
C++ Распечатать все числа от 1 до N Привет всем, помощь нужна, помогите написать. 1. Распечатать все числа от 1 до N, у которых первая и вторая цифра справа равны числу M. 2. Распечатать квадраты всех нечетных чисел от 1 до N,... http://www.cyberforum.ru/cpp-beginners/thread536298.html
Класс "Конвертер валют" C++
Помогите составить программу, реализующую класс "Конвертер валют". С помощью интерфейсных методов надо реализовать: - задание базовой валюты; - задание курсов остальных валют к базовой; - по...
C++ .Создать функции для определения максимального и минимального элементов в массив
Найти наибольший и наименьший элементы вещественного массива.Создать функции для определения максимального и минимального элементов в массив 1. 2. using namespace std; 3. void maxmin(int...
C++ Упорядочить массив по невозрастанию элементов. вывести получившийся массив http://www.cyberforum.ru/cpp-beginners/thread536281.html
Упорядочить массив Е(5,5) по невозрастанию элементов третьего столбца. вывести получишвийся массив ни чего не получается
C++ В каждом столбце матрицы поменять местами первый и последний элемент В каждом столбце матрицы К(6,5) поменять местами первый и последний элемент Ребят как эту программу сделать попроще, а то какая то грамоздкая у меня получается подробнее

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

Переписать с паскаля на С++ - C++

01.04.2012, 22:42. Просмотров 331. Ответов 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
26
27
28
29
30
31
32
33
34
var
ms:array[1..18] of integer;
max,s,k,i:integer;
begin
 
  randomize;
  writeln('Существующий масив: ');
 
   for i:=1 to  18 do begin
    ms[i]:=random(225)-100;
    writeln(' ',i,')  ',ms[i]);
   end;
   k:=0;
   s:=0;
   max:=-2000;
      writeln;
 
   writeln('Числа кратные 5: ');
   for i:=1 to 18 do begin
    if (ms[i] mod 5=0) then begin
    s:=s+1;
    k:=ms[i];
    writeln(i,') ',k);end;
    if (k>max) then
    max:=k;
 
   end;
    writeln('Кол-во елементов кратных 5: ');
   writeln(s);
   writeln('Максимальное среди кратных 5: ');
   writeln(max);
   writeln;
 
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru