Памогите пожалуйста написать программу .
Приложения:

BlackHole3003:
яп какой?
Ответы на вопрос
Ответил shreddes
0
Ответ:
var
a:array[1..10] of integer;
max,i:integer;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i],' ');
end;
max:=1;
for i:=2 to 10 do
begin
if a[i]>max then
max:=i;
end;
end.
Объяснение:
Новые вопросы