Задание 1:
S= 15
i= -1
1)s=5 ; i=4
2)s=9; i=3
3)s=12 ; i=2
4)s=14 ; i=1
5)s=15 ; i=0
6)s=15 ; i= -1
задание 2:
с
А) массив из 10 элементов, заполненный случайными целыми значениями от -50 до 50
б) массив из 20 элементов заполненный натуральными числами от 1 до 20 по возрастанию
в) массив из 5 элементов, заполненный натуральными нечетными числами от 1 до 9 по возрастанию
Var a,b,c,d,i,n,s:integer;beginwriteln('vvedite n');readln(n);for i:=1000 to 9999 dobegina:=n div 1000;b:=n div 100 div 10 mod 10;c:=n div 100 mod 10;d:=n mod 10;end;s:=a+b+c+d;if s mod 2=0 thenwriteln('четно')else writeln('нечетно')end.