Const
n = 5;
var
a: array[1..n, 1..n] of integer;
i, j, sum: integer;
begin
Randomize;
Writeln('Исходный массив');
sum := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(100) + 1;
Write(a[i, j]:4);
sum := sum + a[i, j]
end;
Writeln
end;
Writeln('Сумма элементов равна ', sum)
end.
Пример выполнения
Исходный массив
78 95 84 80 19
9 98 18 71 52
33 42 27 79 17
91 54 85 50 52
62 98 53 86 59
Сумма элементов равна 1492
Var a:array[1..10] of integer;
x,y,i,p:integer;
begin
randomize;
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(20);
x:=random(3);
if x:=2 then a[i]:=a[i]*(-1);
p:=p*a[i];
write(a[i],' ')
end;
writeln;
writeln(p);
end.
Var a,b,n,s,sr,sk:integer;
begin
readln(a,b,n)
s:=a*100+b;
sr:=s*n div 100;
sk:=s*n mod 100;
writeln(sr,' ',sk);
end.
Пример:
3 35 7
23 45
Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);
end;