Вопрос школьника по предмету Информатика
написать программу, которая находит максимальное нечетное число среди чисел ,записанных в файле, и выводит результат в другой файл.
подскажите как найти это число хотя бы
Ответ учителя по предмету Информатика
Program n1;
type z = array of integer;
var a: z;
i,n,max: integer;
f: text;
begin
assign(f,’input.txt’);
reset(f);
n:=0;
while not eof(f) do
begin
n:=n+1;
setlength(a,n);
read(f,a[n-1]);
end;
close(f);
max:=a[0];
for i:= 1 to n-1 do
if (a[i]>max) and(a[i] mod 2<>0) then max:=a[i];
assign(f,’output.txt’);
rewrite(f);
write(f,max);
close(f);
end.
Похожие вопросы от пользователей
Сухое левантинское лицо,
упрятанное оспинками в бачки,
когда он ищет сигарету в пачке,
на безымянном тусклое кольцо
внезапно преломляет двести ватт,
и мой хрусталик вспышки не выносит;
я жмурюсь — и тогда он произносит,
глотая дым при этом, «виноват».
Январь в Крыму. На черноморский брег
зима приходит как бы для забавы:
не в состояньи удержаться снег
на лезвиях и остриях атавы.
Пустуют ресторации. Дымят
ихтиозавры грязные на рейде,
и прелых лавров слышен аромат.
«Налить вам этой мерзости?» «Налейте».
Итак — улыбка, сумерки, графин.
Вдали буфетчик, стискивая руки,
дает круги, как молодой дельфин
вокруг хамсой заполненной фелюги.
Квадрат окна. В горшках — желтофиоль.
Снежинки, проносящиеся мимо…
Остановись, мгновенье! Ты не столь
прекрасно, сколько ты неповторимо.