<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
end.
<u><em>C++:</em></u>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = ";
cin >>a[i];
}
return 0;
}
1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>
Ответ: 38 учеников. Примерно 50/50 мальчиков и девочек
2^10=1024
2^6=64
1024*64=65536 бит
1 кбит=8 бит
65536/8=8192 кбит
(-(y+z)*x)*-(y+z)=F
X Y Z Y+Z 1.-(Y+Z) 1.*X. 1.*(1.*X)
0 0 0. 0. 1. 0. 0
0 0 1. 1. 0. 0. 0
0 1 0. 1. 0. 0. 0
0 1 1. 1. 0. 0. 0
1 0 0. 0. 1. 1. 1. - Ответ
1 0 1. 1. 0. 0. 0
1 1 0. 1. 0. 0. 0
1 1 1. 1. 0. 0. 0
ответ х1 у0 z0