Написать программу в паскале дан целочисленный массив. он заполняется при запуске программы: сначала запросить число элементов (n от 1 до 40), затем - элементы – целые числа в интервале от -500 до 500. a. количество чисел, оканчивающихся на 3; b. найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент). гарантируется, что первый элемент массива положительный. c. наибольший отрицательный элемент, который делится на 3.
157
168
Ответы на вопрос:
Var a: array[1..40] of integer; i,n,k3,k,s,a3: integer; begin write('n='); read(n); for i: =1 to n do read(a[i]); k3: =0; {a} s: =0; k: =0; {b} a3: =-1000; {c} for i: =1 to n do begin if a[i] mod 10=3 then inc(k); {a} if (a[i]> 0) and (a[i] mod a[1]=0) then begin {b} s: =s+a[i]; inc(k) end; if (a[i]< 0) and (a[i]> a3) and (a[i] mod 3=0) then a3: =a[i]; {c} end; writeln('кол-во чисел. оканчивающихся на 3: ',k3); {a} writeln('среднее арифметическое по условию: ',s/k: 0: 3); {b} if a3< > 1000 then writeln('наибольший отрицательный, кратный 3: ',a3) {c} else writeln('нет отрицательных элементов, кратных 3') end. для решения конкретного пункта выбирать только операторы, помеченные этим пунктом, например, {a} для а)
ответ:
используй смсбомбер, в инете найдёшь, они почти все бесплатные, но открывай несколько окон, так быстрее.
Популярно: Информатика
-
Танюха141006.03.2020 23:08
-
gdrsfdfsfss03.04.2021 07:55
-
Gravetalia25.12.2020 22:10
-
56754567667631.05.2023 19:34
-
13kristinka0115.09.2021 21:48
-
gogo3826.06.2022 06:48
-
Angel489220.05.2021 10:52
-
samikby25.04.2021 10:20
-
dashani756208.04.2022 09:48
-
kateadel0106.09.2020 03:53