var
t : array of double;
i, n, mincount, midUp, midDown : integer;
mid : double;
begin
write('Введите кол-во элементов массива :');
readln(n);
randomize;
setlength(t, n);
mincount:=0;
for i:=0 to n-1 do begin
t[i] := random(10)/10;
write(t[i]:1:1,' ');
if t[i]<0.3 then inc(mincount);
end;
writeln('');
writeln('Кол-во элементов <0.3 =',mincount);
writeln('---------------- задача 2 --------------');
mid:=0;
for i:=0 to n-1 do begin
t[i] := random(10)*100 +random(10)*10 +random(10);
mid:=mid+t[i];
write(t[i]:0:0,' ');
end;
mid:=mid/n;
midUp:=0; midDown:=0;
for i:=0 to n-1 do begin
if t[i]<mid then inc(midDown);
if t[i]>mid then inc(midUp);
end;
writeln();
writeln('Средняя з/п = ',mid:1:1);
writeln('Кол-во работников с з/п выше средней =', midUp);
writeln('Кол-во работников с з/п ниже средней =', midDown);
end.
k = 7
Объяснение:
Фрагмент процедуры на языке VBA.
В двойном цикле проверяются ячейки диапазона 4 на 4
(диапазон A1:D4) на нечетность (Cells(i, j) mod 2 <>0).
Cells(i, j) - обращение к ячейке рабочего листа в строке i и в столбце j.
К столбцам А, В, С и т.д. можно обращаться по номеру 1, 2, 3 и т.д.
Операция Cells(i, j) mod 2 означает остаток от деления числа, которое находится в ячейке Cells(i, j) , на 2. Если число делится на 2 с остатком (остаток <>0 - не равняется 0), то число в ячейке Cells(i, j) - нечетное.
В диапазоне A1:D4 7 нечетных чисел, поэтому переменная к = 7.
Ячейки диапазона просматриваются одна за другой по строкам, при этом значение счетчика k увеличивается на 1, каждый раз, когда число нечетное.
На экране появится пятиугольник