ОТДЕЛ Задание+;
ПОСТ
n = 10;
ПЕР
массив: РЯД n ИЗ ВЕЩ;
сумма, среднее: ВЕЩ;
сч: ЦЕЛ;
УКАЗ
сумма := 0;
ОТ сч := 0 ДО n - 1 ВЫП
сумма := сумма + массив[сч]
КОН;
среднее := сумма / n
КОН Задание.
19456 байт =19 килобайт, 1кбайт=1024байт, т.е нужно 19456 разделить на 1024, 19456/1024=19
Const
K = 13;
Var
A:array[1..K] of integer;
i,S:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
End;
S:=0;
i:=0;
Repeat
i:=i+1;
if A[i]>0 then
Repeat
S:=S+A[i];
i:=i+1
Until i>K;
Until i>=K;
WriteLn;
WriteLn('S = ',S);
End.
1) E) логический
2) <span>C) иерархическая, сетевая, реляционная, объектно-ориентированная;
3) </span><span>D) sqr(x)+sqr(y)<=sqr(R);
4) </span><span>B) (x>=0)or(y>=0);
5) </span><span>A) 10; (А =9 В=1 C=0)</span>