Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 0
Регистрация: 09.01.2013
Сообщений: 29
1

Найти наибольшее четное число последовательности (из паскаля в delphi)

20.01.2013, 20:50. Показов 1505. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program num; 
Var a:array [1..100] of integer; 
i, k, max, n :integer; 
begin 
writeln('Введите количество элементов в последовательности '); 
readln(n); 
for i:=1 to n do 
begin 
a [ i ]:=Random(20); 
end; 
writeln('Последовательность: '); 
for i:=1 to n do 
write(a [ i ], ' '); 
writeln; 
 
max:=-1; 
for i:=1 to n do 
if (a [ i ] > max) and (a [ i ] mod 2 = 0) then max:= a [ i ]; 
if max <> -1 then writeln('Наибольшее четное число последовательности = ', max) 
else writeln('Четных чисел в последовательности нет. '); 
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.01.2013, 20:50
Ответы с готовыми решениями:

Вводится последовательность из N целых чисел, найти наибольшее четное число в последовательности
Необходимо сделать без массивов, и без использования max и min- мы их еще не изучали

Вводится последовательность из N целых чисел, найти наибольшее четное число в последовательности
Вводится последовательность из N целых чисел, найти наибольшее четное число в последовательности в...

Найти наибольшее четное число в заданном файле
Дан текстовый файл. В этом файле записана последовательность целых цифр, разделенная пробелами....

Подпрограмма: Найти наибольшее четное число среди заданных 4-ых чисел
Создать функцию, в которую передается четыре числа введенных пользователем. Найдите наибольшее...

1
Модератор
3477 / 2600 / 741
Регистрация: 19.09.2012
Сообщений: 7,967
20.01.2013, 21:17 2
Лучший ответ Сообщение было отмечено sketch_ast как решение

Решение

Delphi
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
{ Ôóíêöèÿ ïåðåêîäèðîâêè ANSI-ñòðîêè â ASCII-ñòðîêó,
  ïîçâîëÿåò âûäàâàòü ñîîáùåíèÿ â êîíñîëüíîì ïðèëîæåíèè íà ðóññêîì ÿçûêå }
function Rus(mes: string): string;
var
  i: byte;
begin
  for i := 1 to length(mes) do
  case mes[i] of
    'À' .. 'ï': mes[i] := Chr(Ord(mes[i]) - 64);
    'ð' .. 'ÿ': mes[i] := Chr(Ord(mes[i]) - 16);
           '¨': mes[i] := #240;
           '¸': mes[i] := #241;
           '¹': mes[i] := #252;
  end;
  Rus := mes;
end;
 
Var a:array [1..100] of integer;
i, k, max, n :integer;
begin
writeln(Rus('Ââåäèòå êîëè÷åñòâî ýëåìåíòîâ â ïîñëåäîâàòåëüíîñòè:'));
readln(n); 
for i:=1 to n do 
begin
a [ i ]:=Random(20); 
end; 
writeln(Rus('Ïîñëåäîâàòåëüíîñòü: '));
for i:=1 to n do 
write(a [ i ], ' '); 
writeln;
 
max:=-1; 
for i:=1 to n do 
if (a [ i ] > max) and (a [ i ] mod 2 = 0) then max:= a [ i ]; 
if max <> -1 then writeln(Rus('Íàèáîëüøåå ÷åòíîå ÷èñëî ïîñëåäîâàòåëüíîñòè = '), max)
else writeln(Rus('×åòíûõ ÷èñåë â ïîñëåäîâàòåëüíîñòè íåò. '));
ReadLn;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.01.2013, 21:17

Если есть нулевые элементы, то найти наибольшее чётное число, как
это правильно реализовать для динамического вектора в stringgrid и если кто знает, подскажите как...

Найти минимальное четное число последовательности
1. С клавиатуры вводится последовательность целых чисел. Признак окончания ввода – число,...

Циклы.Найти самое большое четное число в последовательности
Найти самое большое четное число в последовательности.

Последовательность. Найти наибольшое число, поменять наибольшее число с первым членом последовательности
2. Написать программу, которая примет последовательность n, найдет в ней наибольшое число, поменяет...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru