Program z;
var i,sum:integer;
sr:real;
a:array[1..22] of integer;
begin
for i:=1 to 22 do
begin
a[i]:=random(9)+1;
sr:=sr+a[i];
end;
sr:=sr/22;
for i:=1 to 22 do
begin
if (a[i]<sr) then
sum:=sum+1;
writeln(a[i]);
end;
writeln(sum);
end.
Var i,b,c:integer;
a:array[1..100] of integer;
Begin
Read(b);
I:=1;
While b<>0 do
Begin
A[i]:=b;
I:=i+1;
Read(b);
End;
C:=i-1;
D:=0;
B:=0;
For i:=1 to c do
If a[i]>99
Then begin b:=b+a[i]; d:=d+1; end;
If b=0
Then writeln('NO')
Else writeln(b/d);
End.
Джостик
Графопосторитель
Принтер
Блок питания(Не точно)
Колонки
Карта расширения
End
Матричный принтер(Не точно)
Вроде так должно быть..
#include <iostream>
using namespace std;
int main()
{
int i, n;
cout << "n="; cin >> n;
for (i = 10; i <= 99;i++)
if (pow(i % 10, 3) + pow(i / 10, 3) == n) cout << "Vashe chislo= " << i << endl;
return 0;
}
Всемирная паутина
Имеется ввиду интернет