Program n1;
const n=15;
var sum,i: integer;
a: array[1..n] of integer;
begin
randomize;
sum:=0;
writeln('массив: ');
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i],' ');
if (i mod 2=0) and (a[i]>0) then sum:=sum+a[i];
end;
writeln;
writeln('сумма: ',sum);
end.
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.
Информацио́нные техноло́гии — процессы, методы поиска, сбора, хранения, обработки, предоставления, распространения информации и способы осуществления таких процессов и методов
Информационная система (ИС) — система, предназначенная для хранения, поиска и обработки информации, и соответствующие организационные ресурсы (человеческие, технические, финансовые и т. д.),
Информационный процесс — процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения и использования информации
7 мб=7*2^10кб=7*2^20б=7*2^23 бит
Ответ: 7