<h2>Заменить нечётные элементы по значению</h2>
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.
<h2>Заменить нечётные элементы по индексу</h2>
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.
<h3><em><u>Язык PascalABC</u></em></h3>
Процессор — это «мозг» компьютера. Процессором называется устройство,
способное обрабатывать программный код и определяющее основные функции
компьютера по обработке информации.
Конструктивно процессоры могут выполниться как в виде одной большой монокристальной интегральной микросхемы — чипа, так и в виде нескольких микросхем, блоков электронных плат и устройств.
Чаще всего процессор представлен в виде чипа, расположенного на материнской плате. На самом чипе написана его марка, его тактовая частота (число возможных операций, которые он может выполнить в единицу времени) и изготовитель.
240 Кбайт = 240*1024 байт = 240*1024*8 бит
Количество пикселей в изображении = 600*400
Память для одного пикселя = 240*1024*8 / (600*400) бит ≈ 8 бит
Количество цветов в палитре N=2^i = 2^8 = 256
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака
Позвольте я тут влезу. вот нормальный код, в приложении смотрите.