Задача 1:
var a,s1,s2: integer;
begin
s1:=0;
s2:=0;
repeat
readln(a);
if (a<0) then s1:=s1+1
else if (a>0) then s2:=s2+a;
until (a=0);
writeln('Количество отрицательных: ',s1);
writeln('Сумма положительных: ',s2);
end.
Задача 2:
var a,i,n,min,max: integer;
begin
write('Введите кол-во чисел в последовательности: ');
readln(n);
write('Введите ',1,' число: ');
readln(a);
max:=n;
min:=n;
for i:=2 to n do
begin
write('Введите ',i,' число: ');
readln(a);
if (a>max) then max:=a;
if (a<min) then min:=a;
end;
writeln('Минимальное число: ',min);
writeln('Максимальное число: ',max);
writeln('Их сумма: ',min+max);
end.
Элементная база: электронные лампы ЭВМ потребляют большое кол-во энергии,маленькая скорость действия.Программирование ведется в машинных кодах.
2 Поколение ЭВМ с конца 1950-х до середины 1960-х годов
Элементная база :полупроводниковые элементы.Для программирование используются алгоритмические языки.
3 Поколение ЭВМ с середины 1960-х до конца 1970-х годов
Элементная База: интегральные схемы ,многослойный печатный монтаж .Значительное уменьшение габаритных размеров ЭВМ повышение их надежности увелечение производительности.Доступ с удаленных терминалов.
4Поколение ЭВМ с конца 1970-х по настоящее время .
Элементная база:микропроцессоры, большие интегральные схемы .Улучшены технические характеристики .массовый выпуск персональных П.К. мощные вычислительные системы с высокой производительностью создание дешевых микроЭВМ опытные разработки интелектуальных компьютеров ;внедрение во все сферы комьютерных сетей .