Решить ! 1. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести максимальный элемент данного массива и его номер. 2. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести все двузначные элементы массива и их номера. 3. дан массив размера 10, числовые значения которого вводятся с клавиатуры. вывести предпоследний элемент массива кратный 3 и его номер.
286
490
Ответы на вопрос:
1) var a=array[1..10]of integer; i,max,poz: integer; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); max: =a[1]; poz: =1; for i: =2 to 10 do if (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; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); for i: =1 to 10 do if (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; begin writeln('vverite 10 elementov') for i: =1 to 10 do read(a[i]); k: =0; for i: =10 downto 1 do begin if(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.
Популярно: Информатика
-
киса79807.06.2022 17:55
-
Uliano4ka103.04.2020 02:08
-
Валера666супер19.06.2022 07:31
-
proulechka02.06.2020 02:26
-
msimaratp08h7f02.12.2021 05:49
-
Annarasumanara200219.05.2023 11:43
-
лолкек6605.08.2022 08:45
-
тата23822.01.2022 09:01
-
ання201827.10.2021 19:59
-
senyacha1508.09.2022 01:02