• ПОМОГИТЕ ПОЖАЛУЙСТА ДО ЗАВТРА ОЧЕНЬ НАДО!! !!!!!!!!!!!!!!!!!

    question img

Ответы 1

  • 1.var a:array [1..10] of integer;i,v:integer;beginfor i:=1 to 10 dobegina[i]:=random(17);write(a[i],' ')end;writeln;v:=a[1];for i:=2 to 10 do if a[i]>v then v:=a[i];writeln(v)end.2.var a:array [1..10] of integer;i,n,k:integer;beginfor i:=1 to 10 dobegina[i]:=random(5000)+15000;write(a[i],' ')end;writeln;n:=a[1];for i:=2 to 10 do if a[i]<n then n:=a[i];for i:=1 to 10 dobeginif a[i]=n thenbegink:=i;a[i]:=n*3;end;write(a[i],' ')end;writeln;writeln(k)end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years