Может быть это? <span>pascal: </span>
<span>var a: array [1..20] of integer; </span>
<span>i, k: integer; </span>
<span>s: real; </span>
<span>begin </span>
<span>// заполняем массив c клавиатуры </span>
<span>for i:=1 to 20 do </span>
<span>readln(ar); </span>
<span>//считаем среднеариф-е </span>
<span>s := 0; </span>
<span>k := 0; </span>
<span>for i:=1 to 20 do </span>
<span>if a >=0 then begin </span>
<span>s := s + a; </span>
<span>k := k + 1; </span>
<span>end; </span>
<span>writeln('среднее: ', s/k); </span>
<span>end.</span>
#include <iostream>
using namespace std;
int main() {
int n=10;
int a[n];
int k[n];
bool b=true;
for (int i = 0; i < n; i++) cin >> a[i];
for (int i = 0; i < n; i++) k[i]=0;
for (int i = 0; i < n; i++) k[a[i]-1]=k[a[i]-1]+1;
for (int i = 0; i < n; i++)
if (k[i] != 1) b=false;
if (b) cout << "Yes" << "\n";
else cout << "No" << "\n";
return 0;
}
Пример:
2
5
8
1
4
7
9
6
3
10
<span>Yes</span>
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
1024 байт = 1 гб
Решение: в 1 гб = 1024 байт