var x:array[1..8] of integer := (-10, -9, -8, -7, -6, -5, -4, -3); i,a:integer; y:real;begin writeln('a='); readln(a); for i:=1 to 8 do begin y:=7*sqr(x[i])-14/x[i]+a; writeln('x[',i,']= ',y); end;end.
11719,03. В 1 Кб 1024 байта. Следовательно, делим 12000288 на 1024 = 11719,03 Кб.<span>
</span>
На гибких магнитных дисках (дискетах).
Остальные носители, CDRom, USB-Flash, HDD, обычно защищены от такого.
Ответ:
1-1 2 - 7 3-1 4-4 6-6 7-8 8-3.
Объяснение:
Как то так)
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>