Вычислить среднеарифметическое значение всех элементов массива dat[1:10]. Нужно

var

 a: integer

 dat:array [1..10] of integer

begin

a:=0;

for 1 to 10 do

begin

 a = a+dat;

end;

a := a/10;

writeln(a);

end.

"Реферат" сөзі латын тілінен шыққан және оны сөзбе-сөз аударатын болсақ, ол "баяндау, хабарлау" деген мағына береді. Іс жүзінде барлық сөздіктер бұл сөдің мағынасын бірдей ашады. Реферат - жазбаша түрдегі кітаптың мазмұнының, ғылыми мәселелердің, жаттығулардың, ғылыми зерттеу нәтижелернің қысқаша мазмұндалуы, белгілі тақырыпқа баяндама, әдебиет тізімі мен басқа да көздерге шолу жасайтын белгілі бір тақырыптағы баяндама.

Рефератпен жұмыс жасаудың 4 негізгі бағыты көрсетіледі:

1. Рефератпен жұмыс істеудің негізгі кезеңдері

2. Рефераттың құрылымы

3. Рефератты ресімдеудегі талаптар

4. Рефератты қорғау

1. Рефератпен жұмыс істеудің негізгі кезеңдері

- тақырыпты таңдап онымен танысу;

- реферат тақырыбы бойынша ақпарат көздерін табу

- әдебиттерді зерттеу

- жиналған материалдың жүйелілігі

- рефератты жазу

Рефератты жазудағы ең басты кезеңнің бірі - тақырыпты таңдау. Реферат тақырыбын таңдаған кезде барынша дербестік көрсеткен дұрыс. Сіздің қызығушылығыңыз бен икемділігіңізге келетін тақырып таңдалып, сол тақырыпқа сай жұмыс жасалғанда, оның нәтижесі әсерлі болады.

Объяснение:

from tkinter import *

from tkinter import messagebox as mg

n = int(input("Уведіть скільки виготовляє робітник за день"))

k = int(input("Скільки днів працяє робітник"))

if n*k < 150:

   root = Tk()

   root.geometry("100x100")

   c = Canvas(width=100, height=100, bg='red')

   c.pack()

   mg.showinfo(title=None, message="Робітник не виконав норму")

   root.mainloop()

else:

   root = Tk()

   root.geometry("100x100")

   c = Canvas(width=100, height=100, bg='green')

   c.pack()

   mg.showinfo(title=None, message="Робітник виконав норму")

   root.mainloop()

Объяснение: