Подсчитайте в одномерном массиве A{10} количество элементов делящихся на 3 без остатка.
10-11 класс
|
uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(99)+1;
writeln('a[',x,']:',a[x]);
if a[x] mod 3=0 then inc(k);
end;
writeln('Количество элементов, кратных 3:',k);
end.
---
Для турбо паскаль:
uses crt;
const N=10;
var a:array [1..N] of integer;
x,k:integer;
begin
clrscr;
k:=0;
for x:=1 to 10 do
begin
a[x]:=random(100)+1;
writeln('a[',x,']:',a[x]);
if a[x] mod 3=0 then inc(k);
end;
writeln(k);
readln;
end.
uses crt;
var a, b, x1, x2, x3, c, n, d, i, g :integer;
s :array [1..10000] of integer;
begin
clrscr;
writeln ('Введите размер массива');
readln (n);for i:=1 to n do
begin
writeln ('Введите s[', i, '] элемент');
readln (s[i]); a:=s[i]; if (a mod 3 = 0) then inc(c);
end;
writeln ('Количество чисел кратных 3 = ', c);
end.
P.S. Надеюсь на благодарность и лучший ответ.
Другие вопросы из категории
"мигает"). Какое наименьшее количество лампочек должно находиться на табло, чтоб с его помощью можно было передать 18 различных сигналов?
1) 156,25 - из десятичной в двоичную, восьмеричную и в шестнадцатиричную.
2) 797,5 и 53,74 аналогично
Читайте также
массив.Найти сумму определённого элемента;количество элементов,стоящих на нечетных местах;произведение элементов,кратных 5.
Массиве В каждый элемент увеличить на этот минимальный
дующем порядке: x1y1х2, у2, х3, у3, и т. д. Определить кольцо с центром в начале координат, которое содержит все точки.
1. Дан двумерный числовой массив A состоящий из 35*35 элементов. Написать программу для нахождения количества значений элементов массива меньших среднего арифметического значения элементов массива.
2.Дан двумерный числовой массив A состоящий из 15*100 элементов. Написать программу для нахождения количества элементов массива делящихся на 13 без остатка.
Найти номер первого отрицательного элемента, делящегося на 5 с остатком 2.напишите пожалуйста программу в лазарусе