Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); for i := 1 to 15 do y[i] := random (30) * d * 0.8; for i:=1 to 20 do g[i] := random (30) * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; End.
Не ясное задание. Может ты не все ответы написал?
1) Integer - целый тип, A
2) float - вещественный тип C
3)long - целый тип, но с расширенным диапазоном значений, поэтому к этому можно отнести A
4) character - целый символьный тип B
5) boolean - логический тип, который принимает только правду или ложь, которого у тебя нет в ответах, но он равен варианту D
По способу восприятия информация не может быть: тестовой, визуальной, символьной, графической
var age = 11;
var accompanied = true;
if (age >= 12 | accompanied) {
alert('Yes');
} else {
alert('No');
}