Program up1;
var q,w,e:integer;r:real;
begin
write('введите длинну оснований трапеций');
read(q,w);
write('введите высоту трапеции');
read(e);
r:=0.5*e(w+q);
write('S=',r);
end.
К базовому относятся те программы, которые обеспечивают само функционирование компьютера. Соответственно, к системному программному обеспечению относятся: Сами операционные системы и драйвера в их составе. Графические оболочки (DE) и прочие среды для выполнения программ. Файловые менеджеры.
Все программы работающие в операционной системе - <span>являются системными, их множество</span>
Надеюсь что это нужно выполнить на паскале
4. var a: array[1..20] of integer;
p,i:integer;
begin
p:=1;
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
writeln;
for i:=1 to 20 do
if a[i] mod 2 = 0 then p:=p*a[i];
writeln(p);
end.
5. var a: array[1..100] of integer;
sum,i:integer;
begin
for i:=1 to 100 do
begin
a[i]:= random(100);
write(a[i]:4);
end;
for i:=1 to 100 do
sum:=sum+a[i];
writeln;
writeln(sum);
end.
6. var a: array[1..20] of integer;
sum,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
for i:=1 to 20 do
if a[i]<10 then
a[i] :=0;
writeln;
writeln('Итоговый массив');
for i:=1 to 20 do
write(a[i]:3);
end.