Будем считать, что ввод значения = 0 признак окончания ввода членов последовательности. Тогда можно попробовать так:

var a,max,maxn,n: integer;
begin
readln(a);
max:=a; maxn:=1;n:=1;
while a<>0 do begin
    readln(a);
    n:=n+1;
    if a>max then begin
      max:=a; maxn:=n;
    end;
end;
writeln('Максимальный : ',max,' номер : ',maxn);
end.

0 0

4 года назад

Опредилить основания классификаций:а)ель,сосна,кедр,пихта/берёза,осина,липа,тополь;б)рожь,тишь,ложь,рысь/пшеница,тишина,истина,к

Alx2040 [567]

А) хвойные/лиственные деревья
б) существительные женского рода 3 / 1 склонения
в) одежда / верхняя одежда
г) дикие / домашние животные

0 0

4 года назад

На каком рисунке правильно проведена ось симметрии

Олькая

Оно на всех неправильное ось симетрии должа делить предмет ровно на пополам

0 0

4 года назад

Назовите пословицы которые являются примерами структуры ветвления.Представьте эти пословицы в виде блок схем

Маша Елисеева

Если подождать, то и на море будет хорошая погода

Если спешишь - то поезжай окольными путями

Есть враги - спать не моги

Ему о деле говорят - а он о Тане думает :)))

<span>(А блок-схему ветвления перерисуй из ЛЮБОГО учебника информатики)</span>

0 0

4 года назад