11.Простейшие задачи на использование одномерного массива

1. Заполнение массива

   1. заполнить массив размерности 12 числом 15 (все элементы)

   2. заполнить массив размерности 12 заданным числом

   3. заполнить массив размерности 12 случайными числами (сгенерировать)

2. Сумма и количество элементов (генерировать случайным образом)

   1. Найти сумму всех элементов

   2. Найти сумму элементов, стоящих на нечетных местах

   3. Найти сумму положительных элементов

   4. Найти количество отрицательных элементов

   5. Найти сумму и количество элементов, кратных 4

   6. Найти сумму четных элементов

   7. В массиве хранятся сведения по осадкам за месяц. Найти общее кол-во осадков и среднее за день

3. Каждый элемент массива увеличить в 2 раза

1. Решить эту задачу через ввод с клавиатуры

2. Ввод и вывод в файл (input и output)

3. Решить эту задачу через файл, набранный в блокноте

1. Разница между read и readln

1. Найти сумму всех элементов и количество отрицательных элементов

12. Анализ одномерного массива

Вариант I 1. Начертить получившийся массив и обозначить его индексы For i:=-5 to 3 do A[i]:=i+6; 2. Начертить получившийся массив и обозначить его индексы K:=5; For i:=-5 to 3 do begin A[i]:=i+6+k; K:=k-1 End;	Вариант II 1. Начертить получившийся массив и обозначить его индексы For i:=-10 to -1 do A[i]:=i+16; 2. Начертить получившийся массив и обозначить его индексы K:=1; For i:=-10 to -1 do begin A[i]:=i+16-k; K:=k+3 End;	Вариант III 1. Начертить получившийся массив и обозначить его индексы For i:=0 to 8 do A[i]:=2*i-2; 2. Начертить получившийся массив и обозначить его индексы K:=-5; For i:=0 to 8 do begin A[i]:=2*i-2*k; K:=k+2 End;
Вариант IV 1. Начертить получившийся массив и обозначить его индексы For i:=3 to 11 do A[i]:=3*i-1; 2. Начертить получившийся массив и обозначить его индексы K:=0; For i:=3 to 11 do begin A[i]:=3*i-1-k; K:=k+4 End;	Вариант V 1. Начертить получившийся массив и обозначить его индексы For i:=100 to 107 do A[i]:=i-101; 2. Начертить получившийся массив и обозначить его индексы K:=-1; For i:=100 to 107 do begin A[i]:=i-101+k; K:=k-10 End;	Вариант VI 1. Начертить получившийся массив и обозначить его индексы For i:=12 downto 3 do A[i]:=2-I; 2. Начертить получившийся массив и обозначить его индексы K:=10; For i:=12 downto 3 do begin A[i]:=2-I+k; K:=k+3; End;
Вариант VII 1. Начертить получившийся массив и обозначить его индексы For i:=3 to 9 do A[i]:=1-I; 2. Начертить получившийся массив и обозначить его индексы K:=-3; For i:=3 to 9 do begin A[i]:=1-I-k; K:=k-2 End;	Вариант VIII 1. Начертить получившийся массив и обозначить его индексы For i:=21 to 28 do A[i]:=I; 2. Начертить получившийся массив и обозначить его индексы K:=-1; For i:=21 to 28 do begin A[i]:=I-k; K:=k-4 End;	Вариант IX 1. Начертить получившийся массив и обозначить его индексы For i:=7 to 15 do A[i]:=-I; 2. Начертить получившийся массив и обозначить его индексы K:=2; For i:=7 to 15 do begin A[i]:=-I+k; K:=k-4 End;
Вариант X 1. Начертить получившийся массив и обозначить его индексы For i:=-10 to -3 do A[i]:=2*I; 2. Начертить получившийся массив и обозначить его индексы K:=1; For i:=-10 to -3 do begin A[i]:=2*I+k; K:=k*2 End;	Вариант XI 1. Начертить получившийся массив и обозначить его индексы For i:=-1 downto -7 do A[i]:=-i+1; 2. Начертить получившийся массив и обозначить его индексы K:=1; For i:=-1 downto -7 do begin A[i]:=-i+1+k; K:=2*k End;	Вариант XII 1. Начертить получившийся массив и обозначить его индексы For i:=-4 to 4 do A[i]:=2+I; 2. Начертить получившийся массив и обозначить его индексы K:=2; For i:=-4 to 4 do begin A[i]:=2+I-k; K:=k+5 End;
Вариант XIII 1. Начертить получившийся массив и обозначить его индексы For i:=9 to 16 do A[i]:=9-2*I; 2. Начертить получившийся массив и обозначить его индексы K:=-10; For i:=9 to 16 do begin A[i]:=9-2*I-k; K:=k-1 End;	Вариант XIV 1. Начертить получившийся массив и обозначить его индексы For i:=-20 to -14 do A[i]:=21+2*I; 2. Начертить получившийся массив и обозначить его индексы K:=20; For i:=-20 to -14 do begin A[i]:=21+2*I+k; K:=k+1 End;	Вариант XV 1. Начертить получившийся массив и обозначить его индексы For i:=-7 to 0 do A[i]:=3*i-5; 2. Начертить получившийся массив и обозначить его индексы K:=2; For i:=-7 to 0 do begin A[i]:=3*i-5+k; K:=k+2 End;