Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Le_Xa
1 / 1 / 1
Регистрация: 17.11.2010
Сообщений: 12
#1

Найти максимальное число - Pascal ABC

06.01.2011, 20:41. Просмотров 577. Ответов 1
Метки нет (Все метки)

как правильно дописать в этот код,находку максимального числа
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program qq;
var max,x:integer;
    f:text;
begin
assign (f,'input.txt');
reset(f);
while not eof(f)do begin
readln(f,x);
 
end;
close(f);
assign(f,'ouput.txt');
rewrite(f);
writeln(f,'Максимальный',max);
close(f);
end.

http://www.cyberforum.ru/pascalabc/thread1178260.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.01.2011, 20:41
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти максимальное число (Pascal ABC):

Найти максимальное число
Найти максимальное число, присвоить его значение последнему элементу, вместо...

Найти максимальное число из трёх
Помогите пожалуйста, очень нужно, заранее благодарю! Условный оператор. 12....

Найти максимальное число из 3 переменных
как найти в паскале максимальное число из 3 переменных

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

Найти предпоследнее максимальное число в массиве
Появилась необходимость найти предпоследнее максимальное число в массиве, как...

1
SuPeR XaKer
2844 / 1973 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
06.01.2011, 20:51 #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
Uses
 CRT;
var
 max,x:integer;
 f:text;
begin
assign (f,'input.txt');
reset(f);
max:=-MaxInt;
while not eof(f)do
begin
 read(f,x);
 write(x:4);
 if x>max then
  max:=x;
end;
close(f);
writeln;
write('MAX:=',max);
assign(f,'ouput.txt');
rewrite(f);
writeln(f,'ГЊГ*ГЄГ±ГЁГ¬Г*ëüГ*ûé',max);
close(f);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.01.2011, 20:51
Привет! Вот еще темы с решениями:

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

Найти максимальное число из n вводимых с клавиатуры чисел.
1. Найти максимальное число из n вводимых с клавиатуры чисел.

Массив, Найти максимальное число каждой строки и вывести
const n=3; var a:array of integer; i,g,s,k,w,q:integer; begin ...

Найти в первой очереди максимальное число а во второй - наименьшее
Помогите с программой: Даны две очереди в каждой очереди находится по 10...


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

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

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