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

@Romchi · Регистрация: 24.10.2010

Author24 — интернет-сервис помощи студентам

Ребят, у меня есть наброски, но я не знаю точно , подскажите кто что знает

program///
var i, s, n, a, c, d:integer;
begin
writeln('vvedite kol-vo chisel");
readln(n);
while i<=n do
begin
writeln ('vvedite chislo");
readln(a);
i:=i+1;
s:=a mos 2;
if s:=0 then
if a>c then
begin
c:=a;
d:=i;
end;
end;
мне сказали типа осталось вывести с-максимальное и d(сам вывод числа)..

@pryda · 09.11.2010, 23:19

Pascal

var n,i,m,num,k:integer;
begin
writeln('Введите количество чисел');
readln(n);
m:=-1;
for i:=1 to n do
begin
    repeat
    writeln('Введите ',i,' число');
    readln(k);
    until k>0;
    if (not odd(k))and(k>m) then
    begin
        m:=k;
        num:=i;
    end;
end;
if m=-1 then writeln('Четных чисел нет!') else
writeln('Максимальное число: ',m,' Его номер: ',num);
readln;
end.

@Romchi 0 / 0 / 0 Регистрация: 24.10.2010 Сообщений: 22
		1
	В последовательности целых положительных чисел опреде- лить максимальное четное число и его порядковый номер. 09.11.2010, 22:19. Показов 1746. Ответов 1 Метки нет (Все метки) Ребят, у меня есть наброски, но я не знаю точно , подскажите кто что знает program/// var i, s, n, a, c, d:integer; begin writeln('vvedite kol-vo chisel"); readln(n); while i<=n do begin writeln ('vvedite chislo"); readln(a); i:=i+1; s:=a mos 2; if s:=0 then if a>c then begin c:=a; d:=i; end; end; мне сказали типа осталось вывести с-максимальное и d(сам вывод числа).. 0

	09.11.2010, 23:19

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

Решение