Program n2;
const n=10;
var a: array [1..n] of integer;
i,k,j,temp: integer;
begin
randomize;
writeln('исходный массив');
k:=0;
for i:=1 to n do
begin
a[i]:=random(201)-100;
write(a[i],' ');
end;
writeln;
writeln('полученный массив: ');
for i:=1 to n do
for j:=i to n do
if a[j]>a[i] then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp
end;
for i:=1 to n do begin
write(a[i],' ');
if (a[i]<0) and (i mod 2=0) then k:=k+1;
end;
writeln;
write('кол-во отрицательных элементов на четных местах: ',k);
end.
Var
m: array [1..10] of integer;
max, k, i: integer;
begin
for i := 1 to 10 do
read(m[i]);
max := m[1];
k := 1;
for i := 2 to 10 do
if m[i] > max then
begin
k := 1;
max := m[i]
end
else
if m[i] = max then
inc(k);
write(k)
end.
Официально, инсталляция - это процесс установки программы на ваш компьютер. Программа, при инсталляции копирует себя (чаще всего) в папку "Programm Files", прописывает необходимые ей данные в системном реестре, и иногда помещает дополнительные библиотеки или системные файлы в саму операционную систему.
Телевизор, стиральная машина, компьютер, калькулятор.
кр4, любое техническое устройство.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
begin
var a1,b1,c1,a2,b2,c2:real;
Write('Длины сторон 1 треугольника: '); Read(a1,b1,c1);
var p1:=a1+b1+c1;
Write('Длины сторон 2 треугольника: '); Read(a2,b2,c2);
var p2:=a2+b2+c2;
if p1<p2 then Writeln('Периметр 1 треугольника (',p1,') меньше')
else
if p2<p1 then Writeln('Периметр 2 треугольника (',p2,') меньше')
else Writeln('Периметры равны ',p1)
end.