ввести элементы массива B и вывести на печать каждый третий элемент массива в виде: см. рис.
10-11 класс
|
const
n=10;
var a:array[1..n] of real;
i:integer;
begin
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if i mod 3 = 0 then write(a[i],' ');
end.
Другие вопросы из категории
Вычислите значение целочисленной переменной с при а=26 и b=6:
а) с:=div (a, b) +a
б) b:=div (a, b)
c:=div (a, b)
2.Дан промежуток (a,b) и число y. Определить, принадлежит ли это число промежутку.
3.
Читайте также
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
если же первый элемент массива равен "B" , то переносим его на третью с конца позицию.Каку юпоследовательность получил Незнайка, если данный алгоритм он применил 6 раз?
должна состоять из подпрограмм:
a)Ввод элементов массива с клавиатуры
b)Функции возвращающей сумму четных элементов массива
c)Функции выводящей на экран минимальный элемент массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0