№1)Попытался тут расписать,да сложно было. Эту задачу можно промоделировать вручную на бумаге.Главное не запутаться. Массив изменяется до A[5],далее идёт отражение первой части. ответ: 3) №2)Тут тоже идёт отражение массива,только в другую сторону. В последний элемент будет записан нулевой и обратно(A[10]=0,A[0]=0), и так далее. В итоге получится ответ под номером 4) №3) В данной программе идёт поиск максимального элемента массива: for k := 1 to 10 do if Dat[k] > m then m := Dat[k] Можно увидеть,что максимальным является 8. Выведет число 8.
Выводит 2 строки: Сам массив(20 элементов от 10 до 99) и строку с номерами элементов кратных 7, если таковых элементов нет, то пишет No elements.
program test; uses crt; const t:boolean=false; var arr:array[1..20] of integer; i:integer; begin randomize; clrscr; for i:=1 to 20 do begin arr[i]:=random(90)+10; write(arr[i],' '); end; writeln; for i:=1 to 20 do if arr[i] mod 7 = 0 then begin write(i,' '); t:=true; end; if t=false then write('No elements'); end.
Эту задачу можно промоделировать вручную на бумаге.Главное не запутаться. Массив изменяется до A[5],далее идёт отражение первой части.
ответ: 3)
№2)Тут тоже идёт отражение массива,только в другую сторону. В последний элемент будет записан нулевой и обратно(A[10]=0,A[0]=0), и так далее. В итоге получится ответ под номером 4)
№3) В данной программе идёт поиск максимального элемента массива:
for k := 1 to 10 do
if Dat[k] > m then
m := Dat[k]
Можно увидеть,что максимальным является 8.
Выведет число 8.