Регистрация
луиза94
20.12.2020 05:08
Информатика
Есть ответ 👍

Где ошибка? ? const n=10; type tmas=array[1..n] of integer; var mas1: tmas; procedure imputmas1(var mastmas: integer); var i: integer; begin for i: =1 to 10 do begin mas1[i]: =random(n); write(mas1[i]: 3); end; end.

252
473
Посмотреть ответы 2

Ответы на вопрос:

785600
785600
4,8(18 оценок)

 

 

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

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 massivuses 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.

 

 

 

 

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

 

 

 

 

 

vfvf2304
vfvf2304
4,8(16 оценок)

минут, секунд с начала суток.

Ввод - 24985 Вывод - 6 ч 56 мин 25 сек

Язык с++

Объяснение:

Популярно: Информатика