program Program1; var i, j, n, k: integer; var result: real; var array1: array [1..255] of real; begin result := 0; write('Введите значение N (не более 255): '); readln(n); for i := 1 to n do begin write('Введите значение ', i, ' элемента массива: '); readln(array1[i]); end; begin writeln('Массив, размером - ', n, ' элементов(а):'); for i := 1 to n do write(array1[i], ' '); writeln; end; for i:=1 to n do begin k := 0; for j:=1 to n do if array1[i] = array1[j] then k := k + 1; if k = 1 then result := result + array1[i]; end; writeln('Сумма уникальных элементов массива = ', result); end.
//PascalABC.Net 3.2 {1} begin var a:=readArrinteger('Вводите: ', readinteger('n =')); write ('Ср. арифметическое: ', a.Average); end.
{2} begin var a:=readarrinteger('Водите: ', readinteger('n =')); var sum:=0; for var i:=0 to length(a)-1 do if i.isodd then sum+=a[i]; write ('Сумма: ', sum); end.
{3} begin var a:=readarrinteger('Вводите: ', readinteger('Кол-во элементов: ')); var otr:=0; var pol:=0; for var i:=0 to length(a)-1 do if a[i]<0 then otr+=1 else pol+=1; write('Массив: '); a.Println; if otr=pol then write ('Отрицательных и положительных элементов равное кол-во') else if otr>pol then write('Отрицательных больше на ', otr-pol) else write ('Положительных больше на ', pol-otr); end.
ответ:192E1B2F1A2C192E1B2F1A2A192E1B2
E1B2F192E1B2E1B2E192E1B2E1B2A192
E1B2E1B2E192E1B2E1B1B192E1B2F1A2
B192E1B2E1A2E192E1B2F1A2A192E1B2
F1B2C1A1D192E1B2E1B2A192E1B2E1B2
B192E1B2E1B2E192E1B2F1A2C192E1B2
E1B2D192E1B2F1B2B1A1D192E1B2F1B2
F1A1D192E1B2E1B2F192E1B2F1A22192
E1B2E1B1A192E1B2F1B1A192E1B2E1B2
B192E1B2E1A221A1D192E1B2F1A2B192
E1B2E1A22192E1B2E1B2D192E1B2F1A2
F192E1B2E1A2E192E1B2E1A2B192E1B2
E1A22192E1B2F1A2B192E1B2F1B2C