• Помогите решить задачи!!!
    1. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести максимальный элемент данного массива и его номер.
    2. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести все двузначные элементы массива и их номера.
    3. Дан массив размера 10, числовые значения которого вводятся с клавиатуры. Вывести предпоследний элемент массива кратный 3 и его номер.

Ответы 3

  • поставь "лучшее решение" спасибо
  • Поставила. Спасибо большое. Респект тебе)
    • Автор:

      bruno24
    • 5 лет назад
    • 0
  • 1)var a=array[1..10]of integer;i,max,poz: integer;beginwriteln('vverite 10 elementov')for i:=1 to 10 doread(a[i]);max:=a[1];poz:=1;for i:=2 to 10 doif (a[i]>max)then begin max:=a[i];poz:=i; end;writeln('max = ',max,' ego nomer =', poz);end.2)var a=array[1..10]of integer;i:integer;beginwriteln('vverite 10 elementov')for i:=1 to 10 doread(a[i]);for i:=1 to 10 doif (a[i]>=10)and(a[i]<=99) then writeln(a[i],' ego nomer',i);end.3)var a=array[1..10]of integer;i,k,poz:integer;beginwriteln('vverite 10 elementov')for i:=1 to 10 doread(a[i]);k:=0;for i:=10 downto 1 dobeginif(a[i] mod 3 =0) then begin k:=k+1;poz:=i; end;if(k=2) then writeln(a[i],' ego nomer = ',i);end;if(k=0) then writeln('kratnyh 3 net');if(k=1) then writeln('kratnyy 3 tol'ko 1: a[',poz,']=',a[poz]);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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