Россия, Бельтирское
СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ
Благодаря готовым учебным материалам для работы в классе и дистанционно
Скидки до 50 % на комплекты
только до
Готовые ключевые этапы урока всегда будут у вас под рукой
Организационный момент
Проверка знаний
Объяснение материала
Закрепление изученного
Итоги урока
Был в сети 15.05.2026 06:28
Чебокчинов Иван Николаевич
Учитель информатики
35 лет
191
176 144 
Местоположение
Специализация
Решение задачи в Паскаль
Имя входного файла: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.
Категория:
Информатика
16.01.2015 05:32
Комплекты видеоуроков для учителей
© 2015, Чебокчинов Иван Николаевич 210
Вебинар для учителей
Свидетельство об участии БЕСПЛАТНО!
