Пример в Excel 2003
Ярлычки листов соответствуют № задания
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.
Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
25 байт = 25*8=200 бит
30 кб = 30* 1024 = 30720 байт
9 мб = 9*1024*1024=9437184 байт
6 кб = 6*1024*8=49152 бит
288 бит = 288/8=36 байт
5242880 тб = 5242880 *1024*1024*1024=5242880*2^30 кб