Ответ:
program s;
var
a:array [1..50] of integer;
i,P,C: integer;
begin
for i:=1 to 7 do
begin
a[i]=random (30);
end;
for i:=1 to 7 do begin
C:=C+a[i];
Р:=P*a[i];
end;
writeln (C);
writeln (P);
end.
Объяснение:
Вообще программа вычисляла произведение всех элементов массива. Теперь вычисляет и сумму всех элементов массива.
Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
const h=0.7;
var a, b, x, y: real;
begin
writeln(' [-1,8] s shagom 0.7 ');
a:=-1;
b:=8;
writeln('--------------------------');
writeln('| X | Y |');
writeln('--------------------------');
x:= a;
while x<= b do begin
y:=(x*x*x)-sqr(3*x)+9;
writeln('|', x:9:2, ' |' , y:9:2, ' |');
x:= x+h;
end;
writeln('--------------------------');
end.
Ответ будет "Компьютер", как раз таки на нем и обрабатывается и храниться информация..
Что такое буква А,если 0 то равно 3016