Які з наведених операторів виконують малювання кола з радіусом 100 пікселів (Кілька відповідей)
а)Image1.Canvas. Ellipse (20,30,220,230)
б)Image1.Canvas. Rectangle (20,30,220,230)
в)Image1.Canvas. Ellipse (0,0,220,230)
г)Image1.Canvas. Ellipse (20,30,120,130)
212
370
Ответы на вопрос:
Const k=10; {k - количество чисел в массиве} var a: array[1..k] of integer; i,summ,n: integer; {i - счетчик цикла, summ - сумматор, n - количество элементов массива с четным значением} sr: real; {sr - среднее арифметическое} begin summ: =0; n: =0; { обнуляем счетчики} for i: =1 to k do begin a[i]: =random(50); { заполняем массив случайными числами} write (a[i],' '); {выводим массив} if a[i] mod 2=0 then begin summ: =summ+a[i]; {находим сумму элементов массива с четными значениями} n: =n+1 end end; sr: =summ/n; {находим среднее арифметическое} writeln; writeln (sr: 0: 2) { выводим среднее арифметическое} end.
Популярно: Информатика
-
Alla22104.04.2023 12:24
-
милаш0603.03.2023 13:17
-
irajhgmvm29.05.2023 13:25
-
лиза158507.06.2021 20:02
-
Элина17786200628.11.2020 03:11
-
532настя4351024.05.2022 13:19
-
вано13819.03.2023 08:25
-
kaaanrakun03.03.2023 23:56
-
gerasimovichninka07.06.2020 07:28
-
kalma0901.08.2022 19:27