Помогите пожалуйста , компьютер выдаёт ошибку : "ожидалось имя типа" не могу понять,вот...

Question

Помогите пожалуйста , компьютер выдаёт ошибку : "ожидалось имя типа" не могу понять,вот что я сделала : program simvol; var A:array[1..5,1 ..5]of integer; randomize: Begin; for i:= to 5 do Begin; for j:=1 to 5 do readln (A[i,j]):=random(100); end; Begin; Writeln(A[i,j]):3"); end;

Comments

1) У Вас везде после begin стоит точка запятой. Она ставится только после оператора end. Также программа должна заключаться в основной блок begin end, где end заканчивается точкой, а не точкой с запятой.

---

2) randomize: должен быть заключён в основной блок begin end.

---

3) правильная запись randomize не с двоеточием, а с точкой с запятой.

---

4) В первом цикле программы Вы забыли объявить, чему равна переменная i. Правильно было бы:var i := 1 to 5 do

---

5) В предпоследней строке Вы вообще намешали всего. Во-первых:зачем там одна двойная кавычка? Во-вторых: зачем там вторая скобка после кавычки? Правильно было бы так:Writeln(A[i,j]:3);

---

Добавлю к 4 пункту: Вы инициализируете цикл с какой-то неизвестной переменной i. Вы не объявили её в начале программы. Тут два решения: либо объявить вначале, либо исправить цикл, добавив перед i ключевое слово var:for var i:=1 to 5 doТакже и со вторым циклом:for var j:=1 to 5 do

---

6) Вы вызываете функцию readln, а затем присваиваете ей какое-то значение. Функция readln считывает значение и присваивает введённые данные параметру, который Вы передали в функцию readln. У Вас:readln(A[i,j]) значению массива A[i, j] присваивается введённое с клавиатуры значение

---

Исправленная программа: http://prntscr.com/m9m98f

Answer 1

Программа должна выглядеть вот так:

program simvol;

const

  n=5;

var

 A:array[1..n,1 ..n]of integer;

 i, j:integer;

Begin;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         (A[i,j]):=random(100);

         write(A[i,j]:4);

       end;

     writeln;

   end;

end.

Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.