program raf105;
var
a:array[1..20] of integer;
i,min: integer;
begin
min:= 10000;
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:= random(-30,20);
writeln(a[i]);
if a[i]<min
then min:= a[i];
end;
writeln('Изменённый массив:');
for i:=1 to 20 do
begin
if (a[i] mod 2)<>0
then a[i]:= min;
writeln(a[i]);
end;
end.
Заменить нечётные элементы по индексуprogram raf105;
var
a:array[1..20] of integer;
i,min: integer;
begin
min:= 10000;
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:= random(-30,20);
writeln(a[i]);
if a[i]<min
then min:= a[i];
end;
writeln('Изменённый массив:');
for i:=1 to 20 do
begin
if (i mod 2)<>0
then a[i]:= min;
writeln(a[i]);
end;
end.
Язык PascalABC
=
Объяснение:
const
nmax=100;
type
Tarr=array[1..nmax] of integer;
var
a:Tarr;
i,n:integer;
begin
randomize;
repeat
write('Razmer massiva, ne bolee ',nmax,': ');
readln(n);
until n in [1..nmax];
writeln('Ishodniy massiv:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
i:=1;
while (i<=n) and (a[i] mod 5<>0) do
inc(i);
if i>n then
writeln('Net elementov kratyh 5')
else
begin
a[i]:=0;
writeln('Poluchenniy massiv:');
for i:=1 to n do
write(a[i]:4);
writeln;
end;
end.
Для решения данной задачи сперва следует выразить информационный объем одного пикселя из указанного числа цветов в палитре.
Для этого используем следующую формулу:
N = 2i
где N — количество цветов;
i — информационный объем одного пикселя.
Таким образом получим:
16777216 = 2і
і = 24.
Находим общее количество пикселей в изображении.
Умножаем между собой размеры монитора.
1024 * 768 = 786432 пикселя.
Определяем объем видеопамяти.
Для этого умножаем количество пикселей на 24 бит.
786432 * 24 = 18874368 бит.
Переводим в Кбайты.
18874368 / (1024 * 8) = 2304 Кбайт.
В мегабайтах будет:
2304 / 1024 = 2,25 Мбайт.
2,25 Мбайт.