a - массив из n элементов
k - количество четных индексов положительных элементов
i - цикловая переменная, также индекс элемента массива
Язык программирования: Паскаль
var
a : array [1..100] of integer;
n, k, i : integer;
begin
k := 0;
readln (n);
for i:=1 to n do
begin
readln (a [ i ]);
if (i mod 2 = 0) and (a [ i ] > 0) then
k := k + 1;
end;
writeln (k);
end.
Задачки такого типа не имеют однозначного решения, можно предложить нескольео вариантов и все они будут правильные. Слишком мало членов дано.
Вот мои версии.
а. 1; 3; 6; 4; 11; 5; 16; 6 (на нечётных местах всё время +5, на чётных +1)
б. 9; 7; 10; 4; 11; 1; 12; -2; ... (на нечётных +1, на чётных -3)
в. 3; 2; 1; 6; 5; 4; 9; 8; 7; 12; 11; 10... (тройки n;n-1;n-2; первое число тройки - последовательные числа, кратные 3)
Могу предложить ещё несколько ДРУГИХ вариантов продолжения последовательностей и все они, повторюсь, будут ПРАВИЛЬНЫМИ.
Одно только замечание: ВСЕГДА нужно указывать алгоритм или формулу, по которой последовательность строится(продолжается).
Задачки такого типа не имеют однозначного решения, можно предложить нескольео вариантов и все они будут правильные. Слишком мало членов дано.
Вот мои версии.
а. 1; 3; 6; 4; 11; 5; 16; 6 (на нечётных местах всё время +5, на чётных +1)
б. 9; 7; 10; 4; 11; 1; 12; -2; ... (на нечётных +1, на чётных -3)
в. 3; 2; 1; 6; 5; 4; 9; 8; 7; 12; 11; 10... (тройки n;n-1;n-2; первое число тройки - последовательные числа, кратные 3)
Могу предложить ещё несколько ДРУГИХ вариантов продолжения последовательностей и все они, повторюсь, будут ПРАВИЛЬНЫМИ.
Одно только замечание: ВСЕГДА нужно указывать алгоритм или формулу, по которой последовательность строится(продолжается).
var
a:array [1..100] of integer;
i,n,k:integer;
begin
write ('Razmer massiva: ');readln(n);
k:=0;
for i:=1 to n do begin
write ('A[',i,'] = ');readln(a[i]);
if (a[i]>0) and (i mod 2 = 0) then k:=k+1;
end;
writeln ('Kol-vo: ',k);
readln;
end.