Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Alexanchez12
0 / 0 / 0
Регистрация: 04.04.2010
Сообщений: 26
#1

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

13.06.2010, 15:50. Просмотров 278. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Файл. Максимальное из нечетных (Turbo Pascal):

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

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

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

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

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

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

2
Magnat-multix
3 / 3 / 0
Регистрация: 11.05.2010
Сообщений: 11
13.06.2010, 15:58 #2
Вроде ошибку не выдает твоя версия
1
daimonTM
2 / 2 / 0
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

Дан файл f, компоненты которого являются целыми числами. Найти: Количество удвоенных нечетных чисел среди компонент файл - Turbo Pascal
Дан файл f, компоненты которого являются целыми числами. Найти: Количество удвоенных нечетных чисел среди компонент файла. Записать это...

Определить минимальное среди нечетных и максимальное - среди четных чисел. - Turbo Pascal
В одномерных массивах А и B определить минимальное среди нечетных и максимальное среди четных чисел. Если разница между ними больше...


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

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

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