Массив - Turbo Pascal (33875)

Формулировка задачи:

Помогите пожалуйста. Дан массив с (n) . Переписать в мас¬сив х (n) все ненулевые элементы массива возведенные в квадрат. Затем упорядо¬чить методом «пузырька» по возрастанию новый массив. Найти общее количество одинаковых элементов в упорядоченном массиве.

Код к задаче: «Массив - Turbo Pascal (33875)»

textual
program mas;
uses crt;
 
var C:array[1..100] of integer;
     X:array[1..100] of integer
 
    i,j,t,k,n,buff:integer;
begin
    clrscr;
    write('vvedite kolichestvo elementov massiva C = ');
    readln(n);
    writeln('vvedite elementi massiva');
    for i:=1 to n do
    begin
       write('C[',i,']=');
       readln(C[i]);
    end;
    for i:=1 to n do
    begin
       if (C[i]<>0)then x[i]:=sqr(C[i]);
    end;
    for i:=1 to n do
    begin
       if (X[i]>X[i+1]) then
       begin
            t:=X[i];
            X[i]:=X[i+1];
            X[i]:=t;
       end;
    for i:=1 to n do
    begin
       write(x[i]);
    end;
readln;
end.

15   голосов, оценка 4.267 из 5


СОХРАНИТЬ ССЫЛКУ