Program ex;
var a,b,c,s,k:integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите первое второе');
readln(b);
writeln('Введите первое третье');
readln(c);
if a>0 then
begin k:=k+1;
s:=a;
end;
if b>0 then
begin
s:=s+b;
k:=k+1;
end;
if c>0 then
begin
k:=k+1;
s:=s+c
end;
writeln('Сумма=',s);
writeln('Количество положительных чисел=',k)
end.
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4
Приход нового времени радикально изменил экономические и социальные стороны жизни общества. Многие ученые и практики пришли к выводу, что сегодня жизнедеятельность - это процесс, который может иметь место только тогда, когда человек располагает информацией, которая одновременно определяет и жизнеспособность общества. <span> <span>Эти тезисы воспринимаются как постулат, определенная данность, хотя, по мнению Ф.Уэбстер, «не удается установить, каким образом информация заняла центральное место в обществе, она настолько важна, что даже стала фактором создания общества нового типа».
Изменения самым прямым образом касаются и места человека в информационном мире. Человек меняется в соответствии с вектором информационно-технических характеристик общества. Однако это совсем не пассивное принятие новых условий производства и потребления. Человек выступает субъектом информационной реальности, далеко выходящей за информационно технические характеристики. Информатизация повседневной жизни и появление нового информационного поля человеческого бытия не проходит бесследно для жизненного мира человека. В электронном пространстве изменяются поведенческие стандарты и ценностные ориентации личности.
</span></span>
Смотря с чего начинается с 0 или 1 массив , я просто решил написать пример программы , тут сам вводишь 10 чисел
var
i , k, n:integer;
a: array [1..10] of integer;
begin
for i:=1 to 10 do readln(a[i]);k:=a[1]*a[2]*a[3];
n:=a[10]*a[9]*a[8];
writeln('произведение первых трех чисел= ',k);
<span>writeln('произведение последних трёх чисел= ', n);</span>
end.