{ Цифры числа хранятся в таблице b. b[1] содержит цифру

 

высшего разряда a=a, a2, a3...an. Найти число. }

 

var n,i,a : integer;

b : array[1..6] of integer;

begin

write('Введите кол-во цифр числа n=');

readln(n);

for i:=1 to n do

begin

write('b[',i,']=');readln(b[i]);

end;

a:=0;

for i:=1 to n do a:=a*10+b[i];

write('Число:',a);

readln;

end.

 

Подробнее...

 

 

 

{ Сост. программу определения сред. ариф. таб. а}

 

uses crt;

var a : array [1..10] of integer;

s : real;

sum,n,i : integer;

begin

clrscr;

write('n=');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

sum:=0;

for i:=1 to n do

sum:=sum+a[i];

s:=sum/n;

writeln('ср ариф= ',s);

readln;

end.

 

Подробнее...

 
 

 

{ Даны две таб. Составить из них 3 таб. упорядоченную по возраст. }

 

uses crt;

var a : array [1..10] of longint;

b : array [1..20] of longint;

c : array [1..30] of longint;

n,m,k,l,i,j,min : longint;

begin

clrscr;

write('введ.кол.эл.таб.а n=');readln(n);

write('введ.кол.эл.таб.b m=');readln(m);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

for i:=1 to m do

begin...

Подробнее...

 

 

 

{ Найти сумму. }

 

uses crt;

var a,b,s : integer;

begin

clrscr;

write('a=');readln(a);

write('b=');readln(b);

s:=a+b;

write('сумма s=',s);

readln;

end.

 

Подробнее...

 
Еще статьи...