Помощь - Поиск - Пользователи - Календарь
Полная версия: массив
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-KoT-
блин, напиши плз чего тут нехватает. чтобы правильно работала или что надо заменить или добавить ? smile.gif
ПЛЛЛЛЗЗЗЗЗ УМОЛЯЮ smile.gif

Вычислить сумму элементов одномерного массива расположенных до первого встреченного числа кратного 3.

Код

Program P1
usescrt;
const
n=10;
type
mas=array[1..n] of integer;
var
a:mas;
i:byte;
S:integer;
BEGIN
clrscr;
   for i:=1 to n do
       begin
         writeln('Введите ',i,'-ый элемент');
         readln(a[i]);
         end;
           if a[i] mod 3=0 then
              S:=0;
                 for i:=1 to a[i] do
                      begin
                       S:=S+a[i];
                      end;
          writeln('сумма элементов =',S:2);
readln;
END.      
volvo
for i:=1 to n do begin
writeln('Введите ',i,'-ый элемент'); readln(a[i]);
end;
i := 1; s := 0;
while (i <= n) and ((a[i] mod 3) <> 0) do begin
S := S+a[i];
i := i + 1;
end;
writeln('сумма элементов =', S:2);
-KoT-
СПС ОГРОМНОЕ good.gif всё работает smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.