program raf105;
var
a,b: array[1..7] of integer;
i,x,win: integer;
begin
writeln('Добро в игру "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
a[1]:= x div 1000000;
a[2]:= (x div 100000) mod 10;
a[3]:= (x div 10000) mod 10;
a[4]:= (x div 1000) mod 10;
a[5]:= (x div 100) mod 10;
a[6]:= (x div 10) mod 10;
a[7]:= x mod 10;
x:= random(1000000,9999999);
b[1]:= x div 1000000;
b[2]:= (x div 100000) mod 10;
b[3]:= (x div 10000) mod 10;
b[4]:= (x div 1000) mod 10;
b[5]:= (x div 100) mod 10;
b[6]:= (x div 10) mod 10;
for i:=1 to 7 do
if a[i] = b[i]
then if win <> 0
then win:= win*10
else win:= 1;
writeln('Ваш выигрыш ',win,' руб.');
write('Введённые числа: ');
for i:=1 to 7 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=1 to 7 do
write(b[i],' ');
end.
PascalABC 3.4.2
var
M: array [1..9] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 9 do
begin
M[i]:=random(200)-100;
write(M[i], ' ');
end;
writeln;
for i:=1 to 9 do
begin
if M[i] > 0 then write(i, ' ');
sum:=sum+M[i];
end;
writeln;
writeln('Summa = ', sum);
readln;
end.
задача 2
var
A: array [1..7] of integer;
sum, i: integer;
begin
writeln('Massiv:');
Randomize;
for i:=1 to 7 do
begin
A[i]:=random(20)-10;
write(A[i], ' ');
end;
writeln;
for i:=1 to 7 do
begin
if A[i] > 3 then sum:=sum+A[i];
if i mod 2 <> 0 then write(A[i], ' ');
end;
writeln;
writeln('Summa = ', sum);
readln;
end.