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

C4 ЕГЭ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Решение систем нелинейных уравнений http://www.cyberforum.ru/cpp-beginners/thread883398.html
Ребят, тут вот в чем дело. Я не прошу решить все за меня. Я прошу просто подтолкнуть в сторону решения. Курсач сдавать скоро, а ни строчки кода не написано, по скольку я не знаю что делать с...
C++ В каждой строке двумерного массива находится минимальный элемент, затем среди этих чисел находится максимальное. Напечатать индексы этого элемента. Здравствуйте) Суть задания такова: В двумерном массиве X(m,n) все числа различны. В каждой строке находится минимальный элемент, затем среди этих чисел находится максимальное. Напечатать индексы (... http://www.cyberforum.ru/cpp-beginners/thread883397.html
Массивы. Удалить все четные элементы; Добавить К строк, начиная со строки с номером N C++
Наберите программу, формирующую динамический массив, заполните его случайными числами и выведите на печать. Для одномерного массива: Удалить все четные элементы. Для двухмерного массива: Добавить К...
C++ Построить математическую модель для программы, создающей последовательность и перестановки для первых 5-ти ее элементов
Как построить математическую модель для программы создающей последовательность и перестановки для первых 5-ти ее элементов? #include <iostream> #include <algorithm> float ai(int i) // рекурсивная...
C++ Метод прямого выбора http://www.cyberforum.ru/cpp-beginners/thread883376.html
Не правильно сортирует(( for (i=0; i<num-1; i++) { nmax=i; for (j=i+1; j<num; j++) if(Club->PPG > Club->PPG) { ...
C++ Есть ли ошибки в приведенных ниже описаниях объектов? Пусть мы имеем следующие объявления типов: template<class elemType> class Array; enum Status { ... }; typedef string *Pstring; Есть ли ошибки в приведенных ниже описаниях объектов? /*(a)*/... подробнее

Показать сообщение отдельно
WayThis
0 / 0 / 0
Регистрация: 18.03.2013
Сообщений: 3
29.05.2013, 19:42
Насчет эффективности не уверен, но работает все стабильно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program sifour;
uses crt;
var
a:array [1..1000] of integer;
control:longint;
i,j,max,n,vrem:longint;
begin
write('ВВЕДИТЕ КОЛИЧЕСТВО ЭЛЕМЕНТОВ ПОСЛЕДОВАТЕЛЬНОСТИ: ');
REAdln(n);
for i:=1 to n do
readln(a[i]);
write('ВВЕДИТЕ КОНТРОЛЬНОЕ ЗНАЧЕНИЕ: ');
readln(control);
max:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]*a[j]>max) and  (a[i]*a[j] mod 22 = 0) then max:=a[i]*a[j];
writeln('ВЫЧИСЛЕННОЕ КОНТРОЛЬНОЕ ЗНАЧЕНИЕ: ',MAX);
if max=control then
WRITELN('КОНТРОЛЬ ПРОЙДЕН')
else writeln('КОНТРОЛЬ НЕ ПРОЙДЕН');
end.
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru