Информатика Задачи 1, 9, 10, 11

На Паскале:

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.

 

 

Ну так во первых  обяъвление процедуры должно быть

procedure InputMas1(var mas1:Tmas );

 

 

 во вторых ты забыл  end;  т.е 

 

 

begin
for i:=1 to 10 do
      begin
           mas1[i]:=random(n);
           Write(mas1[i]:3);
     end;

 end; {забытый end}

 

 

в третьих ты  не написал основную прграмму т.е забыл begin и не вызвал процедуру 

InputMas1

 

 

begin

     clrscr;
     InputMas1(mas1);

     readkey;
end. 

 

 

 Итого прога должна выглядеть примерно так

 

 

program Massiv
Uses Crt;
const n=10;
type TMas=array[1..n] of integer;
var mas1:TMas;

procedure InputMas1(var mas1:TMas);
var i:integer;

begin
     for i:=1 to 10 do
        begin
        mas1[i]:=random(n);
        Write(mas1[i]:3);
       end;
end;
{Основная прога}
begin
clrscr;
InputMas1(mas1);
readkey;
end.

 

 

 

 

Держи ! Пользуйся на здоровье и будь внимательнее.