Задача 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.
Очевидно, что рано или поздно компьютеры, расположенные в разных точках земного шара, по мере увеличения своего количества должны были обрести некие средства общения. Такими средствами стали компьютерные сети. Сети бывают локальными и глобальными. Локальная сеть - это сеть, объединяющая компьютеры, географически расположенные на небольшом расстоянии друг от друга - например, в одном здании. Глобальные сети служат для соединения сетей и компьютеров, которых разделяют большие расстояния - в сотни и тысячи километров. Интернет относится к классу глобальных сетей. Простое подключение одного компьютера к другому - шаг, необходимый для создания сети, но не достаточный. Чтобы начать передавать информацию, нужно убедиться, что компьютеры "понимают" друг друга. Как же компьютеры "общаются" по сети? Чтобы обеспечить эту возможность, были разработаны специальные средства, получившие название "протоколы". Протокол - это совокупность правил, в соответствии с которыми происходит передача информации через сеть. Понятие протокола применимо не только к компьютерной индустрии. Даже те, кто никогда не имел дела с Интернетом, скорее всего работали в повседневной жизни с какими-либо устройствами, функционирование которых основано на использовании протоколов. Так, обычная телефонная сеть общего пользования тоже имеет свой протокол, который позволяет аппаратам, например, устанавливать факт снятия трубки на другом конце линии или распознавать сигнал о разъединении и даже номер звонящего. Исходя из этой естественной необходимости, миру компьютеров потребовался единый язык (то есть протокол), который был бы понятен каждому из них.
Объяснение:
Program Graduate;
var age: integer;
institute: string;
school: string;
begin
writeln('Введите возраст: ');
readln(age);
if age > 17 then
begin
writeln('Введите ваш университет: ');
readln(institute);
writeln('Хороший институт');
end
else
begin
writeln('Введите вашу школу: ');
readln(school);
writeln('Хорошая школа');
end;
end.