Массив А(7) вводиться с клавиатуры. Найти кол-во элементов кратных 5
10-11 класс
|
const
auto = false;
n = 7;
var
a: array[1..n] of integer;
i, k: integer;
begin
for i := 1 to n do
begin
if auto then begin
a[i] := random(100);
write(a[i], ' ');
end
else readln(a[i]);
if (a[i] mod 5 = 0) then
k := k + 1;
end;
writeln();
writeln(k);
end.
Другие вопросы из категории
ровно половину файла, скорость увеличилась в три раза. Какое время ему понадобится, чтобы скачать весь файл. Ответ записать в часах, округлив по математическим правилам доц елых чисел.( указать только число)
А) обеспечивают непосредственное решение пользовательских задач;
Б) позволяют создавать новые программы на языках программирования;
В) обеспечивают работу всех аппаратных устройств компьютера и доступ пользователя к ним;
Г) обеспечивают защиту от компьютерных вирусов.
первом случае затрачивается |x2-x1|, а во втором 3*|x2-x1| единиц энергии, где х1 и х2-высоты платформ, с которой и на которую совершается прыжок.Какое минимальное количество энергии герой потратит, что перебраться на конечную платформу начав с первой.
Читайте также
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
которых равно 4 (в паскаль)
FREE PASCAL
№2 В данном одномерном массиве Х[1..n] найти сумму отрицательных элементов , кратных 7.