Таблица 1
Из 48 получили 12 : 4+8=12
1991= 9+1+9+1 =20 и так же с остальными числами в таблице 1
Таблица 2
Цифра один справа означает скольки значное число . То есть оно однозначное , 2 двухзначное
С таблицей 3 я не смогу помочь (
В номере 3 - c
в номере 4 - b
P.S. мда ну как это можно не знать
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Var i: byte;
begin
randomize;
for i := 1 to 10 do
writeln(random(100)+50);
end.