написать программу, которая подсчитывает количество четных индексов положительных элементов введенного с клавиатуры массива целых чисел.
10-11 класс
|
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.
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.
Другие вопросы из категории
палитрой 16 777 216 цветов в) звукозапись среднего качества с частотой дискретизации 24000 Гц и глубиной кодирования 16 битов.
1) Упакованные файлы Архивы
2) Файлы
3) Все пункты верные
4) Загрузочные сектора Таблицу разбиения диска
5) Память DOS, Память EMS, Память XMS
Составьте программу поиска максимального среди нечетных элементов массива. В массиве 30 целых чисел из интервала от 20 до 72.
f(1)=1
f(n)=f(n-1)+n, если n>1.
чему равно значение функции f(30)?
Читайте также
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))