begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
#include <stdio.h>
#include <time.h>
int ZerosInArray(int a[], int n)
{
int k;
for (int i = 0; i < n; i++)if (a[i] == 0) k++;
return k;
}
int main()
{
int N = 10;
int a[N];
int k;
srand(time(NULL));
for (int i = 0; i < N; i++)
{
a[i] = rand() % 5 - 3;
printf("%d ", a[i]);
}
k = ZerosInArray(a, N);
printf("%s%d", "\nZeros = ", k);
return 0;
}
Const n=10;
var
a: array[1..n] of integer;
p,k: integer;
i: byte;
begin
randomize;
p:=1; k:=0;
for i:=1 to n do begin
a[i]:=random(21);
if (a[i]>0) and (a[i] mod 6 =0) then begin
p:=p*a[i];
k:=k+1;
end;
end;
println (a);
if k>1 then writeln ('Произведение элементов, кратных 6, = ',p)
else if k=1 then writeln ('Найден всего 1 элемент, кратный 6, - ',p)
else writeln ('Нет элементов, кратных 6')
end.
-----------------------------------
Примеры:
15 7 14 14 1 17 4 2 20 10
Нет элементов, кратных 6
12 11 16 1 20 6 0 8 7 20
Произведение элементов, кратных 6, = 72
14 6 8 3 15 7 14 5 19 15
Найден всего 1 элемент, кратный 6, - 6
Алгоритм - Действия которые нужно выполнить строго в таком порядке , что бы получить желанный результат