Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
a[i]:=random(101)-50;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
или
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
Readln(a[i]);
clrscr;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
2. колонтитул
3. вставка
4.стиль документа
5. шаблон
6. в Word 2013 - вкладка "Источник бумаги" a здесь видимо вопрос по более ранней версии: не могу ответить
В 32 768 битах сожержится 4 килобайта: 32768 / 8 / 1024=4
Исходный программный код находится в приложении ниже.
Предполагается, что 1≤n≤92.
Писал на PascalABC.Net v.3.2, сборка 1325 (19.10.2016).