Имя входного файла:E.in имя выходного файла E.out Дается.. ... Имя входного файла:E.in имя выходного файла E.out Дается последовательность из N
10-11 класс
|
чисел.найдите максимальное произ.среди всех пар этих чисел.
Program Pr1;
uses crt;
var mas:array[byte] of integer;
fl1,fl2:text;
stroka:string;
b,v,c,max,i:integer;
Begin
clrscr;
assign(fl1,'E.in');
assign(fl2,'E.out');
reset(fl1);
readln(fl1,stroka);
close(fl1);
for i:=1 to length(stroka) do val(stroka[i],mas[i],b);
b:=length(stroka);
max:=1;
v:=0;
for i:=1 to b do if mas[i]>v then if mas[i]>max then max:=mas[i]
else v:=mas[i];
c:=max*v;
rewrite(fl2);
writeln(fl2,c);
close(fl2);
end.
Другие вопросы из категории
дельфике всё сложнее, прошу помощи.
произведение.
Буду очень благодарна!
языке или на одном из языков программирования алгоритм, который находит и выводит минимальное трехзначное число, записанное в этом массиве. если таких чисел нет, нужно вывести сообщение «Таких чисел нет».
объяните решение пожалуйста программу не обязательно писать
Читайте также
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
входных данных Файл содержит число k-позиция искомой цифры. Формат выходных данных Выходной файл содержит искомую цифру. Пример входных и выходных файлов Task1.in Task1.out 4 1 8 3
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 2 секунды
Ограничение по памяти: 256 мегабайт
Это интерактивная задача. В процессе тестирования ваша программа будет взаимодействовать
с программой жюри с использованием стандартных потоков ввода/вывода.
Программа жюри загадала число от 1 до n, цель вашей программы — отгадать его. Для этого
ваша программа сообщает свои догадки программе жюри, а программа жюри отвечает, является
ли загаданное число большим, меньшим или равным сделанной догадке.
Выполнено неравенство 1 ≤ n ≤ 109
. Ваша программа должна сделать не более 30 догадок.
Протокол взаимодействия с программой жюри
Сначала ваша программа должна прочитать из стандартного потока ввода число n. Затем
протокол общения следующий: ваша программа выводит в стандартный поток вывода одну строку,
содержащую число — свою догадку о загаданном числе. Делайте сброс буфера потока вывода после
каждой догадки. Для этого используйте
• flush(output) в паскале или Delphi;
• fflush(stdout) или cout.flush() в С/C++;
• System.out.flush() в Java.
• sys.out.flush() в Python.
После этого программа должна считать из стандартного потока ввода одно число: ответ
программы жюри. Возможны следующие ответы:
• 1 — загаданное число больше последней догадки;
• −1 — загаданное число меньше последней догадки;
• 0 — последняя догадка верна. Считав 0, ваша программа должна завершиться.
Пример
стандартный ввод стандартный вывод
5
-1
1
0
3
1
2
Числа А и В хранятся в первой строке входного файла Exemp.in их сумма в троичной системе-в выходном файле Exemp5.out
троичную систему счисления . Число M хранится в
входном файле Exch.in, его представление в троичной
системе счисления сохранить в выходном файле
Exch.out.