Заполните массив из 20 элементов случайными числами в интервале [50,100] и подсчитайте отдельно количество четных, каждое нечетное число проверьте на содержание цифр 7 и 5 в старшем разряде.
(На питоне)
254
440
Ответы на вопрос:
1) var a: array [1..100] of integer; i,n,k: integer; begin readln(n); //количество элементов массива for i: =1 to n do read(a[i]); //ввод массива через пробел с клавиатуры writeln; readln(k); //ввод значения, номер которого будем искать for i: =1 to n do if a[i]=k then writeln(i) //поиск номера введенного элемента end. 2) var a: array [1..100] of integer; i,n,s: integer; begin s: =0; readln(n); //количество элементов массива for i: =1 to n do read(a[i]); //ввод массива через пробел с клавиатуры writeln; for i: =1 to n do if a[i]=5 then s: =s+1; //подсчёт кол-ва элементов равнх 5 writeln(s) end.
Популярно: Информатика
-
yourname709.12.2021 00:43
-
AkiraK66619.10.2022 06:16
-
Ilvina124krs15.09.2022 21:41
-
Apostol137804.12.2020 21:29
-
Donyakotova26.08.2020 07:11
-
annatimofeeva426.04.2023 14:17
-
lizaroma22423.08.2021 06:52
-
Дамир000101.03.2023 09:29
-
КириллFace11.09.2020 19:07
-
everlast11215.04.2021 08:37