Дан массив целых чисел, размерность которого n. подсчитать, сколько в нем разных элементов.

Раз массив уже дан, то не стала писать программу ввода элементов, а так само вычисление кол-ва элементов вот:   dim a(n) t=0 for i=  1 to n-1 k=0 for j=  i+1 to n if a(i) = a(j) then k=k+1 next j if k≥1 then t=t+1 next i s  =  n  -  t print s вроде так

решение #1

var a: array[1..10] of integer;

i,s: integer;

begin

s: =0;

for i: =1 to 10 do

read(a[i]);

for i: =1 to 10 do

s: =s+a[i];

writeln(s);

end.

 

в этом решении вводится 10 целых чисел, и считается их сумма.

пример

ввод

1 2 3 4 5 6 7 8 9 10

вывод

55

 

решение #2

var a: array[1..1000] of integer;

i,s,n: integer;

begin

read(n);

s: =0;

for i: =1 to n do

read(a[i]);

for i: =1 to n do

s: =s+a[i];

writeln(s);

end.

 

в этом решении сначала вводится n - количество элементов в массиве затем сам массив и выводится ответ

пример

ввод

8

1 2 3 4 5 6 7 8

вывод

36

 

решение #3

var a: array[1..10] of integer;

s,i: integer;

begin

s: =0;

for i: =1 to 10 do begin

randomize;

a[i]: =random(2001)-1000

write(a[i],' ');

end;

for i: =1 to 10 do

s: =s+a[i];

writeln;

writeln(s);

end.

 

в этом решении программа сама генерирует массив из 10 чисел в который входят числа от -1000 до 1000

пример

ввод

 

вывод

0 5 851 -1000 999 515 66 -786 -55 545

1140

 

вопросы, недочеты в лс

 

 

uses crt;

var i,j,k,n,s,s1: integer; a: array[1..5,1..10] of integer; beginrandomize; for i: =1 to 5 dofor j: =1 to 10 doa[i,j]: =random(10)+1; for i: =1 to 5 dobeginwriteln(' '); for j: =1 to 10 dowrite(a[i,j], ' '); end;

 

2-3 uses crt;

var i,j,k,n,s,s1: integer;

b: array[1..10] of integer; beginrandomize;

//prog 2 for i: =1 to 10 do begin b[i]: =random(10)+1; if i mod 2 =0 then s1: =s1+b[i]; write(b[i],' '); end; writeln(' vvedite k and n '); readln(k,n); for i: =k to n do s: =s+b[i]; writeln('suma = ',s); writeln('suma chetnyh ',s1); readln; end.

4..

uses crt;

var i: integer;

a: array[1..10] of integer; beginrandomize; for i: =1 to 10 do a[i]: =random(10)-7; for i: =1 to 10 do write(a[i],' '); writeln; for i: =10 downto 1 do write(a[i],' '); readln; end.