Заполнить массив из 13 элементов случайными числами в интервале [0, 100] и найти количество элементов массива делящихся на два без остатка.
10-11 класс
|
var
a:array [1..13] of integer;
i,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 13 do
begin
a[i]:=random(101);
write(a[i],' ');
end;
writeln;
for i:=1 to 13 do
if (a[i] mod 2)=0 then k:=k+1;
writeln('Количество элементов делящихся на 2 без остатка: ',k);
end.
Другие вопросы из категории
2.для хранения растрового изображения размером 256х256 пикселов отвели 53 кбайт памяти. Каково максимально возможное число цветов в палитре изображения?
3.монитор позволяет получать на экране 61 777 216 цветов. Какой объем памяти в байтах занимает один пиксел?
должно находиться на табло чтобы с его помощью можно было передать 75
различных сигналов
Не могли бы вы,пожалуйста,объяснить подробно и в деталях,как решать данное задание.Тему не очень понял,потому что болею.
Дано слово. Удалить из него третью букву.(Условие(желательно но необязательно): присваивание последнему символу исходной строки значение "_".)
21 19.2
20 18.2
...
10 8.2
Читайте также
массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58
говорили про какой-то метод пузырька. хелп ми Т_т
p.s. паскаль abc
ребят ,если честно - срочно...
Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 максимальные a[4]=10, a[7]=8