Дается последовательность из N чисел. найдите максимальное произ. среди всех пар этих чисел

Имя входного файла:E.in имя выходного файла E.out Дается.. ... Имя входного файла:E.in имя выходного файла E.out Дается последовательность из N чисел.найдите максимальное произ.среди всех пар этих чисел.     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; ...
Раздел Информатика
Класс -
Тип Другие методич. материалы
Автор
Дата
Формат docx
Изображения Нет
For-Teacher.ru - все для учителя
Поделитесь с коллегами:

Имя входного файла:E.in имя выходного файла E.out Дается.. ... Имя входного файла:E.in имя выходного файла E.out Дается последовательность из N чисел.найдите максимальное произ.среди всех пар этих чисел.

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.

© 2010-2022