Информатика 10 класс

Задача 2 (PascalABC)

по первой задаче:
Массив из 12 чисел может иметь размерности 12х1, 6х2, 4х3.
Нас просят найти элементы 5,1 и 32,4.
Решение: "index out of range".
Хотя если нам нужны только нечётные номера, считаем размер массива 32х4, чтобы не получить сообщения об ошибке, и находим нечётные числа от 5*1 до 32*4
sum:=0;
for i:=5 to 32 do
for j:=1 to 4 do
if (i*j) mod 2 then sum:=sum+1;
А заполнять массив, или даже выделять под него память, необходимости вовсе нет.
Более правильное решение:
writeln((32*4-5) div 2);
По второй:
Зачем рисовать схему алгоритма, если её никто не увидит?
"Код программы" присылать в виде скомпилированного исполняемого файла можно с удалёнными отладочными данными? Или преподаватель не знает, что это такое?
А решение Втюрина хорошее. Обратим внимание: за первую задачу он и не брался.

На глупый ответ Инги не обращайте внимания. Никакого "index out of range" нет и быть не может, если правильно и внимательно читать задание. Ибо "index out of range" - это индекс вне диапазона массива - как может быть индекс вне диапазона массива, когда смотрятся элементы массива, а не их индексы, Инга почему-то умолчала. Нет, ну сами можете проверить, если мне не верите - скопируйте мой код в компилятор и запустите. Если действительно индекс вне диапазона, то программа Вам так и напишет. Нет, я проверяю свой код всегда и даю готовый код, но т.к. Вам по понятным причинам (т.е. Вы меня не знаете) нет резона мне (незнакомому Вам человеку) верить на слово - можете смело запустить код на выполнение в компиляторе и уже на основе этого сделать вывод насчёт правдивости моих слов.

Браться за все задания или нет - личное дело каждого - она ему в упрёк ставит, что он лишь 1 задание выполнил, а сама ни 1 вообще. И более того, с ошибками и криво Вам сказала (вернее, написАла). Где она увидела в задании исполняемый файл - вообще загадка. Впрочем, в нетрезвом виде наверняка и не такое покажется.

Т.к. задание 2 уже было решено Владимиром Втюриным, то напишу 1-ое, чтобы не повторять 1 и то же по несколько раз, да и его код чтобы не плагиатить и не конкурировать в плане лучших ответов с этим замечательным человеком.

Итак, 1-ое задание:

 Program P1; 

uses crt; 

const n=12; 

type mas=array [1..n] of real; 

var i, k: integer; 

    m: mas; 

begin 

clrscr; 

k:=0; 

writeln ('Введите с клавиатуры элементы массива (только числа). После ввода каждого из элементов нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

for i:=1 to n do begin 

    write ('Введите ', i, '-й элемент массива: '); 

    readln (m[i]); 

    end; 

for i:=1 to n do if (i mod 20) and (m[i]>=5.1) and (m[i]