Const n=20;
var a:array[1..n] of integer;
k1,k2,s,i:integer;
p:real;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(26)-5;
write(a[i],' ');
end;
writeln;
k1:=0; k2:=0; p:=1;
for i:=1 to n do begin
if a[i]>0
then begin s:=s+a[i]; k1:=k1+1; end
else if a[i]<0 then k2:=k2+1;
if a[i] mod 2 = 0 then p:=p*a[i];
end;
writeln('Среднее арифметическое положительных элементов = ',s/k1);
writeln('Количество отрицательных чисел = ',k2,' количество нулей = ',n-k1-k2);
writeln('Произведение чётных элементов = ',p);
end.
Пример:
10 1 11 -5 -4 10 -4 -2 2 2 17 3 12 -3 15 -5 12 -3 4 -4
Среднее арифметическое положительных элементов = 8.25
Количество отрицательных чисел = 8 количество нулей = 0
Произведение чётных элементов = 29491200
{Файл prog1_13_3.pasЗадача: Даны значения трёх целочисленных переменных a, b, c. Переместить их значения так, чтобы переменная а получила бы исходное значение b, b получила бы значения c, а переменная c - значение a.Автор: Башмаков М. Д., ИТ-11Дата: 15,09,2015} var a, b, c, k: integer;
begin k:=0; {Ввод} writeln('введите переменные a, b, c'); readln (a, b, c); {Перемещенние} k:=a; a:=b; b:=c; c:=k; {Вывод} writeln('а=',a,' b=',b, ' c=',c);end.
N=8 символов
Nc=80 символов
Q-?
I-?
Решение:
1) N=2 в степени I следовательно>
8=2^3
I=3 бита/символ
2) 3*80*26*4=24960 бит=3120 байт=3 килобайта
вроде так ;)
Ответ:
Объяснение:
1) Системное ПО + Прикладное ПО
2) Системное ПО + Системы программирования
3) Системное ПО + Прикладное ПО
<span>220000 * (1,01) * (1, 01) * (1,01) </span><span><span>$</span> = </span><span>
226666,2
</span>$ - это ответ
