Var i,sum:integer;
cp:real;
mass:array[1..6] of integer;
begin
for i:=1 to 6 do
begin
write('mass[',i,']=');
read(mass[i]);
sum:=sum+mass[i];
end;
writeln;
for i:=1 to 6 do
writeln('mass[',i,']=',mass[i]);
writeln;
writeln('Среднее арифметическое элементов массива равно ',sum/6:0:4);
end.<span>
</span>
Unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel;
procedure Button1Click(Sender: TObject);
private { Private declarations }
public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
try
label1.Caption:=FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));
except
On E : EZeroDivide do
ShowMessage('Деление на 0 запрещено : ');
end;
end;
end.<span>
</span>
В десетерчной системе исчесленя - 18
в восьмерчной - 22
Ru Рашка
ua Украина
org Оргия какая-то
cn Ускоглазики из Китая
Var a,b,c,s,x: integer;
begin
write('x = '); readln(x);
<span> а:=х div 100;
</span><span> b:=x mod 100 div 10;
</span><span> c:=x mod 10;
</span><span> s:=a+b+c;
</span> writeln(s);
end.
При вводе x = 248 будет напечатано 14, при вводе x = 789 будет напечатано 24
