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.
fednik3337923
04.02.2023
Розбити три сирих яйця над мискою 2. додати у миску з яйцями щіпку солі 3. збити міксером суміш у мисці 4. відрізати три кружечки ковбаси 5. увімкнути конфорку 6. поставити на конфорку сковороду 7. змастити сковороду вершковим маслом 8. покласти на сковороду кружечки ковбаси 9. вилити у сковороду збиті яйця 10. смажити три хвилини 11. вимкнути конфорку ти, напевне, успішно виконав завдання на попередньому уроці. тому можна приступити до виконання більш цікавого завдання. вантажів тепер буде 5. і вага кожного з них буде більша, ніж у попередніх. перед тобою та ж сама: скласти алгоритм завантаження корабля. не забудь про розташування контейнерів.