1)uses crt; const n=17;//число элементов в массиве var f:array[1..n] of integer; i,s,k:integer; begin randomize; s:=0; k:=0;//чтобы не возникало ошибок, на всякий случай все обнулим for i:=1 to n do begin f[i]:=random(100)-50;//к примеру, взяла интервал от -50 до 50 //всего получилось 100 чисел, минимальное -50 writeln(f[i]); if f[i]>0 then begin s:=s+f[i]; inc(k)//собираем сумму положительных элементов массива //и находим их количество, прибавляя к переменной к единицу end; end; writeln;//протсо сделаем пробел между массивом и результатами, чтобы не получилась каша writeln(s); writeln(k); end. 2)uses crt; const n=5; var l:array[1..n,1..n] of integer; i,j,max,k,t,m,i1,j1:integer; begin randomize; for i:=1 to n do for j:=1 to n do l[i,j]:=random(100)-50; for i:=1 to n do begin for j:=1 to n do write(l[i,j]:4);//это означает, что на запись элемента массива отводится 4 места writeln; end;//таким я вывела на экран двумерный массив в форме матрицы writeln; max:=-50;//чтобы найти максимальный элемент, нужно сначала приравнять его к минимально возможному значению //так как побочная диагональ располагается для строк: от 1 до 4,а для столбцов - от 1 до 4 (сама побочная диагональ нас не интересует), то заведем еще переменные t и m t:=1; m:=4; //теперь найдем минимальный элемент выше побочной диагонали repeat for i:=t to t do for j:=1 to m do if l[i,j]>max then begin max:=l[i,j]; i1:=i; j1:=j;//мы нашли максимальный элемент и запомнили его положение end; inc(t); m:=m-1; until t=5; l[2,2]:=l[2,2]+l[i1,j1]; l[i1,j1]:=l[2,2]-l[i1,j1]; l[2,2]:=l[2,2]-l[i1,j1];// поменяли их местами for i:=1 to n do begin for j:=1 to n do write(l[i,j]:4); writeln; end;//опять выводим матрицу на экран writeln; end.
ответ:1
2)44100*60*2*24=127008000 бит = 15876000 байт = 15503 Кб
3) пусть время х. тогда:
1/3*х * 60 + 2/3*х * 90 = 27000
20х + 60х = 27000
8х=2700
х=337 секунд
4)102 + 108 +1016 = 1226 = 10011001010(2)
5)???
6)128*16=2048 пикселей
512/2048 = 1/4 байта/пиксель = 2 бита/пиксель
2^2 = 4
ответ: 4 цвета
7)256 = 2^8 -> 8 бит/пиксель = 1 байт/пиксель
256*512*1=131072 байт = 128 Кб
8)128 Тбайт = 128 * 1024 * 1024 * 1024 * 1024 * 8 бит = 1125899906842624 бит
9)???
10) 1024 = 2^10
10*60*48000*10 = 288000000 бит = 35156 Кбайт
11) 16*32*64*16 = 524288 бит = 64 Кбайт
12) 44 символа * 1 байт/символ = 44 байта
13)??? (ничего не подходит под первый символ)
const n=17;//число элементов в массиве
var f:array[1..n] of integer;
i,s,k:integer;
begin
randomize;
s:=0;
k:=0;//чтобы не возникало ошибок, на всякий случай все обнулим
for i:=1 to n do
begin
f[i]:=random(100)-50;//к примеру, взяла интервал от -50 до 50
//всего получилось 100 чисел, минимальное -50
writeln(f[i]);
if f[i]>0 then
begin
s:=s+f[i];
inc(k)//собираем сумму положительных элементов массива
//и находим их количество, прибавляя к переменной к единицу
end;
end;
writeln;//протсо сделаем пробел между массивом и результатами, чтобы не получилась каша
writeln(s);
writeln(k);
end.
2)uses crt;
const n=5;
var l:array[1..n,1..n] of integer;
i,j,max,k,t,m,i1,j1:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
l[i,j]:=random(100)-50;
for i:=1 to n do
begin
for j:=1 to n do
write(l[i,j]:4);//это означает, что на запись элемента массива отводится 4 места
writeln;
end;//таким я вывела на экран двумерный массив в форме матрицы
writeln;
max:=-50;//чтобы найти максимальный элемент, нужно сначала приравнять его к минимально возможному значению
//так как побочная диагональ располагается для строк: от 1 до 4,а для столбцов - от 1 до 4 (сама побочная диагональ нас не интересует), то заведем еще переменные t и m
t:=1;
m:=4;
//теперь найдем минимальный элемент выше побочной диагонали
repeat
for i:=t to t do
for j:=1 to m do
if l[i,j]>max then
begin
max:=l[i,j];
i1:=i;
j1:=j;//мы нашли максимальный элемент и запомнили его положение
end;
inc(t);
m:=m-1;
until t=5;
l[2,2]:=l[2,2]+l[i1,j1];
l[i1,j1]:=l[2,2]-l[i1,j1];
l[2,2]:=l[2,2]-l[i1,j1];// поменяли их местами
for i:=1 to n do
begin
for j:=1 to n do
write(l[i,j]:4);
writeln;
end;//опять выводим матрицу на экран
writeln;
end.