Задача на паскале:
Дано n чисел найти номер максимального числа.

2

Ответы и объяснения

2013-01-23T15:15:47+00:00
const m = 20; {размер массива чисел}   var arr: array[1..m] of byte; max_num, max_index: byte; i: byte;   begin randomize;   for i := 1 to m do begin arr[i] := random(100); write (arr[i]:3); end;   max_index := 1; max_num := arr[1];   for i := 2 to m do if arr[i] > max_num then begin max_index := i; max_num := arr[i]; end;   writeln; writeln ('Max = ',max_num); writeln ('position: ', max_index);   readln end.
  • Kitsu
  • почетный грамотей
2013-01-23T15:20:45+00:00

var n,i,i1,x,max:integer;
begin
readln(n);
while n<>0 do begin
n:=n-1;
inc(i);
readln(x);
if max<x then begin max:=x; i1:=i; end;
end;
writeln(i1);
end.