Картинка с заполненной таблицей прикреплена,рассказываю сам алгоритм
Берём 640*480 пикселей и 4 бита
Всего точек на экране: 640*480=307200
Необходимый объём видеопамяти: Умножаем количество битов на количество точек на экране: 307200*4=1228800 бит
1 Килобайт=2 в 10 степени байт= 2 в 13 степени бит
1 Мегабайт=2 в 20 степени байт=2 в 23 степени бит
Как же перевести из битов в килобайт?
Берём наше решение-1228800 бит
вычисляем 2 в 13 степени=8192
1228800/8192=150 Кб и дальше по такой же схеме делаешь
Var a:array[1..5,1..7] of integer;
i,j,kolpol,kolotr:integer;
respol,resotr:real;
begin
for j:=1 to 7 do begin
for i:=1 to 5 do begin
a[i,j]:=random(-50,50);
write(a[i,j]:4);
end;
writeln();
end;
for i:=1 to 5 do begin
respol:=0;
resotr:=0;
kolpol:=0;
kolotr:=0;
for j:=1 to 7 do begin
if a[i,j]>0 then begin
respol+=a[i,j];
kolpol+=1;
end
else if a[i,j]<0 then begin
resotr+=a[i,j];
kolotr+=1;
end;
end;
writeln('Среднее значение положительных чисел в ',i,' столбце=', respol/kolpol);
writeln('Среднее значение отрицательных чисел в ',i,' столбце=', resotr/kolotr);
end;
end.
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
const nn=10;
var
a:array [1..nn] of integer;
i,s,k:integer;
begin
s:=0; k:=0;
for i:=1 to nn do readln(a[i]);
for i:=1 to nn do
begin
if a[i] mod 2 =0 then s:=s+1;
if a[i] mod 10 =5 then k:=k+1;
end;
writeln('Четных элементов: ',s);
writeln('Элементов оканчивающихся на 5: ',k);
end.
А можно порусски пожалуйста написать