обнулить элементы массива B(9) в четных ячейках.
10-11 класс
|
const n=9;
var b:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do b[i]:=random(20)-5;
for i:=1 to n do write(b[i]:5);
writeln;
for i:=1 to n do
if (i mod 2=0) then b[i]:=0;
for i:=1 to n do write(b[i]:5);
end;
end.
Другие вопросы из категории
Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.напишите пожалуйста программу в лазарусе
тся с
клавиатуры. Величина задолженности вычисляется по формуле : Ai=(1+q)*A(i-1). q - ставка кредита , Ai - задолженность i-го месяца (A0 - величина кредита ).
Читайте также
в четных ячейках . Помогите пжл , и блок схема
элементов массива, которые не четны и делятся на 3.
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
одном из языков программирования алгоритм, позволяющий найти и вывести максимальное значение среди трехзначных элементов массива, оканчивающихся на 0