Составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. подсчитайте в этом массиве количество положительных и количество отрицательных значенийна паскале)

Вот программа!Все работает правильно!

Program sadadasf;
var i,l,h,g: integer;   
A: Array[1..101] of integer;
begin 
For i:=1 to 100 do 
begin     
l:=random(41)-20;   
A[i]:=l;   
If l<0 then h:=h+1; 
If l>0 then g:=g+1; 
end;
Writeln('Количество отрицательных чисел:', h);
Writeln('Количество положительных чисел:', g);
end.

Задача не совсем внятная, так что предполагается следующее:

1. С клавиатуры вводится кол-во деталей, которые должен сделать 2-й слесарь, то есть без учета брака.

2. 3-й слесарь не сделал на 50 деталей меньше 1-го, а

должен был сделать.

3. Каждый рабочий получает деньги только за качественную деталь (не брак).

var s1,s2,s3,k1,k2,k3: integer;

begin

write('Количество деталей для 2-го слесаря (не менее 100): ');

readln(k2);

k2:=k2-k2 div 5;

k1:=2*k2;

k3:=k1-50;

k3:=k3-k3 div 3;

s1:=20*k1;

s2:=15*k2;

s3:=10*k3;

writeln('1 слесарь сделал ',k1,' деталей, он заработал ',s1,' тенге');

writeln('2 слесарь сделал ',k2,' деталей, он заработал ',s2,' тенге');

writeln('3 слесарь сделал ',k3,' деталей, он заработал ',s3,' тенге');

writeln('Всего 3 слесаря заработали ',s1+s2+s3,' тенге');

end.

Персональный компьютер (ПК) - это не один электронный аппарат, а небольшой комплекс взаимосвязанных устройств, каждое из которых выполняет определенные функции. Часто употребляемый термин “конфигурация ПК” означает, что конкретный компьютер может работать с разным набором внешних (или периферийных) устройств, например, с принтером, модемом, сканером и т.д.

Эффективность использования ПК в большой степени определяется количеством и типами внешних устройств, которые могут применяться в его составе. Внешние устройства обеспечивают взаимодействие пользователя с ПК.