Записать в файл прямого доступа N действительных чисел. Найти наибольшее из значений модулей компонентов с нечетными номерами — Pascal(Паскаль)

Uses crt;
const n=10;
var f:file of integer;
a:array[1..n] of integer;
i,max:integer;
begin
clrscr;
assign(f,'C:\Chisla'); {Имя и адрес создания файла}
rewrite(f);
writeln('Введите ',n,' чисел');
for i:=1 to n do
begin
readln(a[i]);
write(f,a[i]);
end;
max:=a[1];
for i:=1 to n do
begin
if odd(i) then
if abs(a[i])>max then max:=abs(a[i]);
end;
write(f,max);
writeln('Максимальное из нечетных',max);
readkey;
close(f)
end.

Leave a Comment

− 2 = 7