Задача -Массивы.Наити количество элементов с четными индексами.
10-11 класс
|
uses crt;
var i,c:integer;
a:array[1..100] of integer;
begin
c:=0;
for i:=1 to 100 do
if i mod 2 = 0 then inc(c);
writeln(c);
end.
Другие вопросы из категории
«Такого дня не существует».
раз-ность двух соседних элементов в этом массиве (1-ый и 2-ой, 2-ой и 3-ий, 3-ий и 4-ый и т.д.) будет являться наименьшей. Сформируйте новый массив T(Y), состоящий из разностей пар элементов массива С(Т).
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var a,b:integer;
begin
a:=8;
b:=-4;
while not (a=2) do
if b>0 then
a:=a div 2
else
begin
a:=a div 2;
b:=-b;
end;
a:=-a+2*b;
write(a);
END.
Даны табл. Пациенты(код пациента, фамилия, код отделения), Отделения(код отделения, название).
посчитать количество пациентов в терапевтическом отделении
Читайте также
элементы, а из массива В -нечетные по значению.Выведите на экран массивы А,В,С.
2.Информация о площадях и средней урожайности хранится в массиве,где каждый элемент с четным индексом - засеянная площадь, а с нечетным - урожайность.Определите и выведите на экран кол-во собранной пшеницы и среднюю урожайность.
Помогите пожалуйста!
индексами. выведите на экран исходный массив и полученное среднее арифметическое.
2. Задайте массив из 10 элементов с помощью датчика случайных чисел. замените все элементы с четными индексами максимальными. Выведите на экран исходный и измененный массивы
программу заполнения массива B[1..10] таким образом: элементы с нечетными индексами равны числу 2, а элементы с четными индексами равны числу 5.
числа 7 и меньше 10. Вывести количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10 на монитор
порядке.
Вывести значения элементов с четными индексами.