Смотрите. Тут правда есть немного лишнего. Противоположные стороны всё таки проверять не надо. Хватит 4х углов. Но текст комментирован, лишнее можно убрать. поясняющих картинок нет. но вопрос и так слишком долго живёт без ответа. Мне казалось срок жизни 2-3 дня максимум, а тут 5 дней минуло.
Если что, отправляйте на исправление. дома дорисую.
Главное программа работает. Правда есть подозрения, что не во всех Паскалях (как они относятся к объявлению массива массивов?)
Это был Free Pascal Compiler version 2.6.4 [2014/04/20] for i386
В версии 3.0.0. думаю, тоже сработает
P.S.Добавил возможные варианты (не все, ясное дело) расположения точек.
Program z1; const n = 15; Var a: array [1..n] of integer; i:integer; s:real;Begin for i:=1 to n do read(a[i]); for i:=1 to n do write (a[i],' '); s:=0; for i:=1 to n do s:=s+a[i]; s:=s/n; writeln; writeln('Сумма элементов = ',s);End.<span>
</span>
1.Гигобайт, Таробайт.
2. Микрофон?(Не точно)
3. -
4. -
5. -
6. Копировать
7. 1100? (Не точно)
8. Хз ---
50*70*2 = 7000 байт вес одной страницы
2.8мб /1024 /1024 = 2`936`012,8 байт
2`936`012,8 байт /7000 байт = 419,4304 страниц
1 Олег, 2 Юра, 3 Володя, 4 Миша, 5 Саша