Өйткені ол кезде қазақ халқының саны жағынан ең үлкен және кіші жүздің ханы жолбарыс хан даңғылы бойында орналасқан ол кезде қазақ мен өлгенде оның үстіне ол кезде қазақ хандығының қол астына көшті
Целые (целочисленные, integer)- целые числа, например: 0, 1, 2, -1, -4... Целые числа и вычисления с ними тратят меньше ресурсов компа, чем вещественные. Вещественные (действи́тельное число, real) - числа с плавающей запятой, например: 1.0, 0.2, 13.435, 3.14... Символьные (char) - может содержать один любой символ, букву или цифру, например: "Y", "1",".","-","И"," "... Строковые (string) - состоят из множества символов, например: "123", "ABc32A", "Привет, мир!"... Логические (boolean) - может принимать 2 значения: "True" (1, Истинна) или "False" (0, Ложь).
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} для а)
Өйткені ол кезде қазақ халқының саны жағынан ең үлкен және кіші жүздің ханы жолбарыс хан даңғылы бойында орналасқан ол кезде қазақ мен өлгенде оның үстіне ол кезде қазақ хандығының қол астына көшті