Создайте обстановку для робота размером "9x9.fil", робот находится в верхнем левом углу поля. : напишите две программы по закрашиванию роботом всех клеток вдоль поля 1 программа - известны размеры поля; 2 программа - неизвестны размеры поля. оба файла с программами отправьте в этом .

Const  n = 10; var  mas : array [1..n] of integer;   i, sum, a, k, sch : integer; begin   writeln('введите массив: ');   for i: = 1 to n do    readln(mas[i]);   writeln('введите число a: ');   readln(a);   writeln('введите число k: ');   readln(k);       sum: = 0;   for i: = 1 to n do    if mas[i] mod 2 = 1 then      sum: = sum + mas[i];   writeln('сумма элементов равна ',sum);       writeln('индексы, значение элементов которых больше ',a,' : ');   for i: = 1 to n do    if mas[i] > a then      write(i,' ');   writeln;       sch: = 0;   for i: = 1 to n do    if mas[i] mod k = 0 then      sch: = 1;   if sch = 1 then    writeln('в массиве есть элементы, кратные ',k)  else    writeln('в массиве нет элементов, кратных ',k);       for i: = 1 to n do    if mas[i] mod 5 = 0 then    begin      mas[i]: = 0;       break;     end; end.

Чесно  кажучи,  написано  дуже  "приблизно"  : ) 1)  слово  "двовимірний"  означає,  що  масив  є  таблицею  (з  рядками  і  стовпцями),  а  не  те,  що  його  довжина  =2  елементи. тому  значення  n  (рядок  const n=2; ) краще замінити на щось быльше, хоча б 10. 2) у розділі var двовимірний масив описується так:     var b: array[1..n, 1..n] of integer;   (вважаємо масив квадратним) 3) бажано підкоректувати запрошення на ввід, тому що користувач бачить одне і те ж для кожного елемента: b[i]= потрібно написати так: write('b[',i,',',j,]='); read ('b[i,j]); - тут зайва лапка, має бути так  read (b[i,j]); і бажано замість read використати  readln, щоб кожне нове число користувач  мав  вводити з нового рядка. для  навчального  завдання  ще  краще  не  запитувати  користувача вводити сто чисел, а заповнити масив програмно випадковими числами: randomize;   b[i,j]: = random(101)-50; (задає числа від -50 до 50) 4) for i: =2 to n do for j: =2 to n do чому ти переглядаєш масив, починаючи з 2 рядка і 2-го  має бути    for i: =1 to n do   for j: =1 to n do  5) if b[i,j]< min then min: =b[i,j]; - ти порівнюєш елемент  b[i,j] зі змінною min, а чому  вона  рівна? де ти задаєш її значення? 6) ну і бажано вивести весь  масив на екран, щоб користувач міг його бачити. ось  виправлений  варіант програми: program pr4; uses crt; const n=10; var b: array[1..n,1..n] of integer; min,i,j: integer; begin; randomize; for i: =1 to n do begin for j: =1 to n do begin b[i,j]: =random(101)-50; write(b[i,j]: 3, ' '); end; writeln; end; writeln; min: = b[1,1]; for i: =1 to n do for j: =1 to n do if b[i,j]< min then min: =b[i,j]; writeln('найменший елемент масиву min=',min); end.