Будем считать, что ввод значения = 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 года назад

Определите значение целочисленных переменных a и b после выполнения фрагмента программы:a:=1686;b:=(a div 10) mod 5;a:= a - 200*

Артём РРР [7]

решим последовательно выполняя алгоритм

0 0

4 года назад

Дан массив 10 элементов. Поменять местами соседние элементы (1-йи 2-й, 3-й и 4-й,...)

Kets [1]

Ответ:

var

A: array [1..10] of integer;

i : integer;

temp : integer;

begin

Randomize;

for i := 1 to 10 do

begin

A[i] := random(30);

Write(A[i], ' ');

end;

Writeln;

i := 1;

while i < 10 do

begin

temp := A[i];

A[i] := A[i + 1];

A[i + 1] := temp;

inc(i, 2);

end;

Writeln('Новый массив: ');

for i := 1 to 10 do Write(A[i], ' ');

end.

Объяснение:

0 0

4 года назад