1 - Определите значение переменной с после выполнения следующего фрагмента программы:
а:=6
b:=13
a:=b-a*2
if a>b then c := a+b
else c:=b-a
2 - Исправьте программу , чтобы она стала рабочей
begin
s:=0 k:=1
white k < 11 do
s:=s+k k:=k+1
write
end
3 - В программе описан одномерный целочисленный массив А с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются , а затем меняются .
for i:=0 to 10 do A[i]:=2+i
for i:=0 to 4 do
begin
A[i]:=A[10-i]-1
A[10-i]:=A[i]+3
end
Чему будут равны элементы этого массива?
4 - Дан целочисленный массив из 20 элементов. Элементы массива могут принимать целые значения от –100 до 100 включительно. Напишите программу позволяющий найти и вывести минимальное значение среди положительных элементов массива кратных 5 . Если в исходном массиве нет элемента ,значение которого положительно делится на 5 , то вывести сообщение "Не найдено".