вычисление суммы чисел, кратных 3 из последовательности, состоящей из 10 чисел, заранее заданных

[Белка]

Очень нужна помощь в написании программы, а то мне не сдать экзамен...заранее спасибо огромное..
Нужно написать программу вычисления суммы чисел, кратных 3 из последовательности, состоящей из 10 чисел, заранее заданных, с последовательностью суммы чисел, не кратных 7, состоящей из 10 чисел, заранее заданных. Суммы должны вычисляться в подпрограммах.
В начале программы запросить имя пользователя.



Результат вывести по центру экрана на чистом фоне в виде:

Уважаемый, ИМЯ, результат выполнения программы:
Числа, кратные 3:
Числа, кратные 7:
Общая сумма:



В конце программы задайте вопрос – Продолжить? В зависимости от ответа пользователя повторить выполнение программы или выйти из программы.

[Maslan]

Два раза зря писала....

состоящей из 10 чисел, заранее заданных

- заданных где и кем?


И что с чем складывать в итоге?
Сумма_кратных_трём + Сумма_кратных_семи ?

Просто не понятна фраза

последовательность суммы чисел, не кратных 7, состоящей из 10 чисел,

Program summator;
Uses Crt;
Var
 array_3,array_7:array[1..10] of integer;
 i:integer;
 Name:String;
 s,t:string;
 otvet:CHAR;

Function Summ_3:Integer;
Var i,j:integer;
begin
j:=0;
For i:=1 to 10 do
if (array_3[i] mod 3)=0
then j:=j+array_3[i];
Summ_3:=j;
end;


Function Summ_7:Integer;
Var i,j:integer;
begin
j:=0;
For i:=1 to 10 do
if (array_7[i] mod 7)=0
then j:=j+array_7[i];
Summ_7:=j;
end;

Function Summ:integer;
begin
Summ:=Summ_3+Summ_7;
end;

Begin
otvet:='Y';
While Upcase(otvet)='Y' do begin
ClrScr;
Write('Представьтесь, пожалуйста >');
ReadLN(Name);
 For i:=1 to 10 do
  begin
   Write('Введите число №',i,' из первой последовательности : ');
   ReadLn(array_3[i]);
  end;
 For i:=1 to 10 do
  begin
   Write('Введите число №',i,' из второй последовательности :');
   ReadLn(array_7[i]);
  end;
ClrScr;
GotoXY(20,10);
Writeln('Уважаемый, ',name, ', результат выполнения программы:');
GotoXY(20,11);
s:='';
For i:=1 to 10 do
if (array_3[i] mod 3)=0
then
 begin
   str(array_3[i],t);
   s:=s+t+' ';
 end;
WriteLn('Числа, кратные 3: '+s);
GotoXY(20,12);
s:='';
For i:=1 to 10 do
if (array_7[i] mod 7)=0
then
 begin
   str(array_7[i],t);
   s:=s+t+' ';
 end;
WriteLn('Числа, кратные 7: '+s);
GotoXY(20,13);
WriteLn('Общая сумма: ',summ);
GotoXy(0,25);
Write('Продолжить? [Y/N]');
ReadLn(Otvet);
end;
end.

Ой, блиииин. Раздел ассемблеровский.... =\

[Белка]

Спасибо конечно большое, я и сама плохо понимаю что нужно сделать в этой работе..Вот такие нам задания в универе дают...

[Maslan]

Да не. Задание простое. Если знаешь паскаль, то алгоритм можешь полностью содрать с моего кода.