Вычислительная техника - важнейший компонент процесса вычислений и обработки данных. Первыми при для вычислений были, вероятно, счетные палочки, которые и сегодня используются в начальных классах многих школ для обучения счету. Развиваясь, эти при становились более сложными, также предназначены для наглядного представления количества, однако для удобства помещались при этом в специальные контейнеры. я думаю что Такими при похоже, пользовались торговцы и счетоводы того времени.
Постепенно из самых простых при для счета рождались сложные устройства. Несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат с простых средств даже быстрее, чем некоторые владельцы современных калькуляторов. Естественно, сама по себе, производительность и скорость счета современных вычислительных устройств давно уже превосходят возможности выдающейся человека писаря.
Одним из самых простых решений было использование массового эквивалента предмета обмена, не требовало точного пересчета количества его составляющих. Для этого использовались простейшие балансирные веса, которые стали, таким образом, одним из первых устройств для количественного определения массы.
Объяснение:
var
N: integer;
a: array [1..1000] of integer;
sum,i,k: integer;
begin
write('Введите размерность массива: ');
readln(N);
write('Введите элементы массива: ');
for i:=1 to N do
read(a[i]);
writeln('Элементы массива a: ');
for i:=1 to N do
write(a[i],' ');
writeln;
sum:=0;
for i:=1 to N do //Условие и проверка отрицательности и делимости элементов
if (a[i]<0) and (i mod 3 = 0) then
sum:=sum+sqr(a[i]);
writeln('Сумма квадратов значений элементов с условием равна: ', sum);
k:=0;
for i:=1 to N do //Условие и проверка положительности элементов
if (a[i]>0) and (a[i]<>sum) then
inc(k); //Сумма положительных элементов
writeln('Количество положительных элементов: ', k);
end.
