Ответ:
1.
var a:array[1..6]of integer;
i,k:integer;
begin
k:=0;
write('Массив: ');
for i:= 1 to 6 do
begin
a[i]:= random(5);
write(a[i]:4);
if a[i]=4 then k:=k+1
end;
writeln;
if k=0 then writeln ('В массиве нет элементов равных 4')
else writeln('Количество элементов равных 4 равно ',k)
end.
2.
var a:array[1..6,1..6]of integer;
b:array[1..36]of integer;
i,j,k,z,y,m:integer;
begin
k:=0;
writeln('Массив A ');
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
a[i,j]:= random(51);
write(a[i,j]:3);
end;
writeln;
end;
writeln;
k:=1;
for i:= 1 to 6 do
begin
for j:= 1 to 6 do
begin
for z:=1 to 6 do
begin
for y:=1 to 6 do
begin
if (z<>i) and (y<>j) and (a[i,j] = a[z,y]) then
begin
b[k]:=a[i,j];
k:=k+1
end;
end;
end;
end;
end;
writeln('Массив B ');
for i:= 1 to k-1 do write (b[i]:3);
writeln;
writeln;
m:=b[1];
for i:= 2 to k-1 do if b[i]>m then m:=b[i];
writeln('Максимум среди элементов повторившихся более одного раза в массиве А равен ',m);
end.
Объяснение:
В массиве B во второй задаче находятся повторяющиеся элементы массива А.
Кроме того, что ее можно перенастроить на любую из команд, какую сам захочешь, она также возвращает в начало списка, страницы, текста и того подобного.
Жидкокристаллические мониторы более востребованны сегодня, потому что имеют ряд неоспоримых преимуществ перед ЭЛТ-мониторами. Во-первых, ЖК-мониторы более экономично расходуют энергию, что в конечном итоге выливается в квитанцию об оплате за электроэнергию. Также ЖК-мониторы занимают мало места на рабочем столе благодаря своему «плоскому» виду.
Конечно же, более современные ЖК-мониторы обладают преимуществами и в технологиях. Возможность подключения ЖК-мониторов через HDMI позволяет увидеть цвета по-новому. Важно отметить, что ЖК-мониторы не имеют свойства намагничиваться, и, соответственно, размагничивать их не нужно. ЖК-мониторы обладают хорошей яркостью, однако на начальном этапе их эволюции этот аспект был уязвимым местом ЖК-мониторов в союзе с плохим углом обзора. Сегодня же эти параметры приведены в порядок и современные ЖК-мониторы обладают хорошей контрастностью, яркостью и углом обзора до 178 градусов, что позволяет видеть картинку так же сочно и красочно практически с любого угла
Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.
Это смотря что за редактор но стандартно должно идти так:
1)и текст
2)фигура
3)ластик
