для массива A заданы числа от 1 до 6, 1 символ = 2 байта, 6 * 2 = 12 байт.
Только что созданный текстовый файл получил расширение txt
Const N=30;
var s,b:real;
c,i:integer;
A:array[1..N] of real;
begin
Randomize();
b:=0;
c:=0;
for i:=1 to N do
begin
A[i]:=random(500)+300;
b:=b+A[i];
end;
s:=b/N;
for i:=1 to N do if A[i]<s then c:=c+1;
Writeln('Средняя зарплата: ',s);
Write('Количество сотрудников,получающих зарплату ниже средней: ',c);
End.
Это высказывание равносильно такому:
((первая буква согласная) и (последняя буква согласная)) ИЛИ
((первая буква гласная) и (вторая буква гласная)).
Подходят слова 1. ааратат и 5. сравнением
На картинке все написано.