Program C21; uses Crt;const n = 30;var a : array[1..n] of integer; k, i, max : integer;beginfor i := 1 to n do beginwrite('vvedite ',i,' - iy element massiva - ');readln(a[i]); end;k := 1;max := a[1] * a[2]; for i := 2 to n-1 do begin if (a[i] * a[i + 1]) > max then begin max := a[i] * a[i + 1]; k := i; end;end;writeln(k);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
