Помогите решить задачу

[cL1zMa]

Плохо понимаю массивы и функции div mod. Прошу помочь решить задачку. Буду очень признателен за любую помощь.

Запросить с клавиатуры 5 любых целых чисел и вычислить сумму чисел составляющих (использовать функции DIV и MOD). Числа и результат запомнить в массивах. Вывести результат в виде таблицы. Ниже в рамке из звездочек (*) вывести авторов программы. В программе использовать цикл с постусловием.

Запросить несколько значений целых чисел и вычислить сумму чисел составляющих их (использовать функции DIV и MOD), записав данные в типизированный файл. Организовать вывод данных из файла.

[AVer]

Первая часть задачи:

uses crt;
var a,b:array[1..5] of integer;
i:integer;
begin
for i:=1 to 5 do
readln(a[i]);
ClrScr;
for i:=1 to 5 do
write(a[i]:4);
Writeln;
for i:=1 to 5 do
while a[i] > 0 do
begin
b[i]:=b[i]+(a[i] mod 10);
a[i]:=a[i] div 10;
end;
Writeln;
for i:=1 to 5 do
Write(b[i]:4);
i:=1;
Writeln;
Writeln;
repeat
Write('*');
i:=i+1;
until i > 8;
writeln;
Writeln('* AVER *');
i:=1;
repeat
Write('*');
i:=i+1;
until i > 8;
readln;
end.

Вторая часть:

USES CRT;
var a,b:array[1..5] of integer;
z,i:integer;
f:file of integer;
begin
Assign(f,'File.txt');
Rewrite(f);
for i:=1 to 5 do
readln(a[i]);
ClrScr;
for i:=1 to 5 do
Write(f,a[i]);
for i:=1 to 5 do
while a[i] > 0 do
begin
b[i]:=b[i]+(a[i] mod 10);
a[i]:=a[i] div 10;
end;
for i:=1 to 5 do
Write(f,b[i]);
Close(f);
Reset(f);
for i:=1 to 5 do
begin
read(f,z);
write(z:4);
end;
Writeln;
for i:=1 to 5 do
begin
read(f,z);
write(z:4);
end;
Close(f);
readln;
end.

[cL1zMa]

AVer, спасибо Вам огромное! Знали бы Вы как меня выручили!

Не хочу наглеть, но не остаётся выбора В субботу надо сдать решёные задачки, если не сдам будут проблемы на зачётной неделе. Кто чем сможет помогите пожалуйста. Ну не для моего мозга программирование

Нарисовать посередине экрана окно зеленого цвета в центре которого предлагается на выбор прорисовать окружность или эллипс в случайных координатах экрана. При выходе из программы создать звуковой сигнал.

[AVer]

Сорри, у меня GRAPH.TPU не работает, а "на глаз" такое задание писать не возьмусь...

[Юдифь]

Попробуй так:

Uses Graph,CRT;
var
Gd,Gm: Integer;
x1,y1:integer;
radius:word;
begin
randomize;
gd:=9;
gm:=1;
initgraph(Gd,Gm,'c:\tp7\bgi');
x1 := GetMaxX div 4;
y1 := GetMaxY div 4;
SetFillStyle(1,2);
Bar(x1,y1,3*x1,3*y1);
setcolor(4);
setlinestyle(1,1,3);
radius:=random(GetMaxY div 2);
circle(GetMaxX div 2,GetMaxY div 2,radius);
readln;
CloseGraph;
Sound(220);
Delay(2000);
NoSound;
End.

[cL1zMa]

Спасибо! Благодарен вам за помощь.