Const l = 5; var a: array[1..l] of integer; d: array[1..l] of real; i, otr, k, m: integer; begin otr:=0; k:=0; m:=0; //считаем массив а for i:=1 to l do begin readln(a[i]); //если ввели положительное число,увеличим перем. otr на 1 if a[i] < 0 then inc(otr); //если ввели отрицательное число,увеличим перем. k на 1 //и к переменной m прибавим элемент if a[i] > 0 then begin inc(k); inc(m, a[i]); end; end; //заполним массив d for i:=1 to l do //если индекс четный, присвоим элементу otr //иначе присвоим среднее арифметическое if i mod 2 = 0 then d[i] := otr else d[i] := m/k; end.
№146 Для начала нужно обьявить переменные,у меня обьявляются оператором DIM,ну думаю,что дим нужен и при этом действие.
Если переменная обозначает любой знак,не имея какого либо обозначения,или указания на конкретное число,тогда это переменная равна 0,обьявим ее.
DIM A,B,C,
(Если значение переменной равно 0,то можно распаложить ее в любом положении,или в задоном(изначально))
Дальше выводим переменные на экран,
(если данная функция не работает,то,тогда нужно ввести после('),знак(,).
PRINT 'A'
PRINT 'B'
PRINT 'C'
Ну и в конце пишем:
Endif
Примечание:
Если значение переменных будет равна 0,то на экране тоже будет равна 0.
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.