Другие языки программирования и технологии

Вопрос по паскалю

Задача 110 Дана последовательность чисел. Выяснить, сколько раз в нейвстречается максимальное числоВходные данные.Вводится сначала число N - количество членов последовательности, а затемN чисел - члены последовательностиВыходные данныеВыведите одно число - сколько раз в последовательности встречаетсямаксимальное число.Пример входного файла71 4 2 5 2 5 3Пример выходного файла2Комментарии. Не очень простая задача, если учесть, что тему массивы мы к этому моменту еще не проходили. Тем не менее, массив, в общем-то, и не нужен для ее решения.________________________________________Задача 111 Вводится последовательность чисел. Посчитать в ней количествочетных чисел, стоящих на четных местах.Входные данныеВводится сначала число N, а затем N чисел - члены последовательности.Выходные данные.Выведите количество четных чисел, стоящих на четных местах в последовательности.Пример входного файла51 2 4 5 6Пример выходного файла:1Пояснение: единственное четное число, стоящее на четном месте впоследовательности - это число 2. Числа 4 и 6 не подходят, так какстоят, соответственно, на 3 и 5-м местах.
Владимир Костыгов
Владимир Костыгов
422
задача 110

var
max, count, i, n, c:integer;
begin
readln(n);
readln(c);
max:=c;
count:=1;
for i:=2 to n do
begin
readln(c);
if c=max then inc(count);
if c>max then
begin
max:=c;
count:=1;
end;
end;
writeln('count=',count);
end.

задача 111

var
count, i, n, c : integer;
begin
readln(n);
for i:=1 to n do
begin
readln(c);
if (not odd(i)) and (not odd(c)) then inc(count);
end;
writeln(count);
end.
Данил Михеев
Данил Михеев
2 395
Лучший ответ
Блин, мужики, на чуть чуть опоздал я, но все же скину свой вариант, все же писал, старался :))

var n,i,m: integer;
a,am: real;
begin
write('введите количество членов последовательности: ');
readln(n);
am:=0;
for i:=1 to n do
begin
write('введите число: ');
readln(a);
if a>am then begin am:=a; m:=1; end else
if (a=am) then inc(m);
end;
writeln('максимальное число встречается в последовательности ',m,' раз (а) ');
readln;
end.

задача 111

var n,i,m: integer;
a: real;
begin
write('введите количество членов последовательности: ');
readln(n);
m:=0;
for i:=1 to n do
begin
write('введите число: ');
readln(a);
if ((a mod 2=0) and (i mod 2=0)) then inc(m);
end;
writeln('количество четных чисел, стоящих на четных местах в последовательности ',m);
readln;
end.

>>Вадим Вележенко
А почему бы и не real? Смысл? Хочется мне так, ограничения никто не ставил. А вот у вас в 1й задаче массив совершенно ни к чему, тем более в комментариях упоминается, что у товарищей тема массивов не раскрыта. Ну это так, придирка взамен на придирку :).
Виталик Слободянюк
Виталик Слободянюк
1 006
Задача 110

var
cnt,ii,max,cnte: integer;
arr: array [0..1023] of integer;
begin
max := 0;
repeat
readln(cnt);
until (cnt<1024);
for ii := 0 to (cnt-1) do
begin
readln(arr[ii]);
if arr[ii] > max then
max := arr[ii];
end;
cnte := 0;
for ii := 0 to (cnt-1) do
if arr[ii] = max then
inc(cnte);
writeln(cnte);
end.

2 Радик: твой вариант немного странно выглядит, хотя и нормально работает ;)

так будет лучше

var
max, count, i, n, c:integer;
begin
readln(n);
max:=0;
count:=0;
for i:=1 to n do
begin
readln(c);
if c>max then
begin
max:=c;
count:=0;
end;
if c=max then inc(count);
end;
end;
writeln('count=',count);
end.

2Александр Рыбаков: а зачем там real?? смысл?))))) )

задача 111

var
count, i, n, c : integer;
begin
count := 0; //а инициализировать кто будет? ))))
readln(n);
for i:=1 to n do
begin
readln(c);
if (not odd(i)) and (not odd(c)) then inc(count);
end;
writeln(count);
end.
Zakir Mecidov
Zakir Mecidov
683

Похожие вопросы