#include <iostream>
using namespace std;
int main() {
int n=20,k=0;
int a[n];
srand(time(NULL));
cout<<"array:\n";
for (int i=0; i<n; i++)
{
a[i]=rand() % 91+10;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=1; i<n; i++)
if ((a[i-1]+a[i])%3==0) k++;
cout << "k = " << k;
return 0;
}
Пример:
<span>array:
53 94 31 70 89 30 32 64 81 27 36 70 57 17 10 67 83 12 55 28
k = 7</span>
===== PascalABC.NET =====
begin
var x := ArrRandom(100, 1, 50);
x.Println;
Println('Минимальный элемент встречается',
x.Count(p -> p = x.Min), 'раз(а)')
end.
По правовому статусу ПО можно разделить на группы свободное ПО ,ПО являющееся частной собственностью
авторов или правообладателей, ПО специального назначения.
For i := a to b do
...
end;
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.