Помогите выполнить задание по ИКТ!! на программу Паскаль
5-9 класс
|
Написать программу подсчета количества элементов, если индекс ячейки нечетное число, а элемент ячейки-чётное
var
i,n:integer;
a:array[1..20]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(10);
if (i mod 2=1) and (a[i] mod 2=0) then n:=n+1;
write(a[i],' ');
end;
writeln;
writeln('Искомых элементов: ',n);
end.
Другие вопросы из категории
времени первоначальная сумма увеличится в два раза.
Читайте также
превосходящие N, в порядке возрастания.
Операцией возведения в степень пользоваться нельзя!
2)
В первый день спортсмен пробежал x километров, а затем он каждый день увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер дня, на который пробег спортсмена составит не менее y километров.
Программа получает на вход действительные числа x и y и должна вывести одно натуральное число.
Составить программу описания двух переменных чисел:трех действительн., трех целых, трех постоянных ,целые(2 чиловые ,1 символьная)
на уроке успели только 1 пример сделать:
Program _ Zadacha _1 ;
const_ s1=3
pi=3.14;
var_c2,c1:integer;
b2:real;
begin
end.
разложить на пятерки и тройки. Вывести разложение. Спасибо заранее:)
вычисления: а) y=x^10 б) y=x^15. Постараться использовать минимальное количество дополнительных переменных. 2) Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоты, радиусы вписанной и описанной окружностей. Программу записать на языке Паскаль. 3) Дана величина А, выражающая объём информации в байтах. Перевести А в более крупные единицы измерения информации. Программу записать на языке Паскаль