1)var a:array[1..15] of integer;
i,s:integer;
begin
randomize;
for i:=1 to 15 do a[i]:=random(20)+10;
for i:=1 to 15 do if a[i] mod 3=0 then s:=s+1;
writeln(s);
end.
2)var a: array[1..10] of integer;
i, s: integer;
begin
randomize;
for i := 1 to 10 do a[i] := random(21) - 10;
for i := 1 to 10 do if (a[i] > 0) and (a[i] mod 2 = 0) then s := s + 1;
writeln(s);
end.
Атом это вам не просто элемент таблицы Менделеева, это еще и название команды победителей.
78 в двоичном виде это 0100 1110 (2^6 + 2^3 + 2^2 + 2^1, единицы в соответствующих разрядах).
В прямом коде 16битное число записывается так: старший разряд (15-й) это знак, 0 для плюса, 1 для минуса, разряды с 14-го по 0-й - само число.
То есть -78 = 1000 0000 0100 1110
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.