Const
n=10;
var
a,b,c:array[1..n] of real;
i:integer;
begin
Writeln('Введите элементы массива');
for i:=1 to n do Read(a[i]);
Writeln(' A B C');
for i:=1 to n do
begin
b[i]:=a[n-i+1]; c[i]:=(a[i]+b[i])/2;
Writeln(a[i]:7:3,b[i]:7:3,c[i]:7:3)
end
end.
<em><u>Тестовое решение:</u></em>
Введите элементы массива
1.26 -0.3 6.18 7 -7.04 -9.9 -1.7 -2.955 1.75 0.245
A B C
1.260 0.245 0.753
-0.300 1.750 0.725
6.180 -2.955 1.613
7.000 -1.700 2.650
-7.040 -9.900 -8.470
-9.900 -7.040 -8.470
-1.700 7.000 2.650
-2.955 6.180 1.613
1.750 -0.300 0.725
0.245 1.260 0.753
<em><u>Блок-схема во вложении</u></em><em><u /></em>
Я думаю, не уверен, что это А
Поскольку 17 простое нечетное число его обнулили, и 17 не делится ни на что кроме себя и 1
Uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 7 do
begin
gotoXY(1,i);
write('*');
gotoXY(7,i);
write('*');
end;
for i:=1 to 5 do
begin
gotoXY(1+i,7-i);
write('*');
end;
readln;
end.
2^8=256=> 8 бит для 1 пикселя.
Далее 8*1024*768/8*1024=768
Ответ:768
ИНФОРМАТИКА ИНдюкФОРМА ТИК А