Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Alexanchez12
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 26
1

Файл. Максимальное из нечетных

13.06.2010, 15:50. Просмотров 298. Ответов 2
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.
Ошибка №67: String expression expected.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2010, 15:50
Ответы с готовыми решениями:

В одномерном массиве найти максимальное количество четных элементов и максимальное количество нечетных элементов, расположенных рядом
В одномерном массиве найти максимальное количество четных элементов и...

Максимальное значение только из нечетных и его номер
Помогите пожалуйста.Даны N натуральных чисел.Найти максимальное значение только...

Найти максимальное значение только из нечетных и его номер.
Var a:integer; max,k,i,n:integer; begin writeln('введите кол-во чисел');...

Найти максимальное значение только из нечетных и его номер.с помощью цикла.
помогите пожалуйста.препод злой...все ненравится....Даны N натуральных...

Массив: найти максимальное и минимальное значение среди четных и нечетных элементов.
В массиве Е(65) найти максимальное и минимальное значение среди четных и...

2
Magnat-multix
3 / 3 / 0
Регистрация: 11.05.2010
Сообщений: 11
13.06.2010, 15:58 2
Вроде ошибку не выдает твоя версия
1
daimonTM
2 / 2 / 1
Регистрация: 24.03.2010
Сообщений: 46
13.06.2010, 16:03 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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);
for i:=1 to n do
begin
writeln('Введите число a',i,'=');
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.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2010, 16:03

Найти в одномерном массиве A размером 14 максимальное значение у нечетных и четных элементов
Задача №1: Найти в одномерном массиве A размером 14 максимальное значение у...

Дан файл, содержащий числа. Найти в нём минимальное и максимальное число и записать их в другой файл.
Дан файл, содержащий числа. Найти в нём минимальное и максимальное число и...

Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый файл и вывести на экран максимальное и минимальное числа
Создать файл, содержащий не более 50 случайных целых чисел. Записать в новый...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru