В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех чисел до тех пор, пока не встретится 11

@vladislav71 · Регистрация: 13.03.2014

Студворк — интернет-сервис помощи студентам

Помогите написать программный код:
В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех
чисел до тех пор, пока не встретится 11.

@SmartProgramist · 13.03.2014, 16:30

Pascal

 Uses Crt;
  Var a:Array[1..8] of Integer;
      i,s:integer;
Begin  
  a[1]:=-9; a[2]:=18; a[3]:=2; a[4]:=6; a[5]:=7;
  a[6]:=20; a[7]:=11; a[8]:=-6; s:=0;
  For i:=1 to n do
    Begin
      s:=s+a[i];
      If s=11 Then Writeln('TRUE');
    End;
  Readln;  
End.

Добавлено через 1 минуту
Ошибку допустил... Вот исправил.

Pascal

Uses Crt;
  Var a:Array[1..8] of Integer;
      i,s:integer;
Begin  
  a[1]:=-9; a[2]:=18; a[3]:=2; a[4]:=6; a[5]:=7;
  a[6]:=20; a[7]:=11; a[8]:=-6; s:=0;
  For i:=1 to n do
    Begin
      s:=s+a[i];
      If s=11 Then Begin Writeln('TRUE'); Break; End;
    End;
  Readln;  
End.

@vladislav71 · 13.03.2014, 16:33 **[ТС]**

Спасибо большое.

@bormant · 13.03.2014, 16:55

Pascal

var s, n: integer;
begin
  Read(n);
  while n<>11 do begin
    sum:=sum+n;
    Read(n);
  end;
  WriteLn('SUM = ', sum);
end.

В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех чисел до тех пор, пока не встретится 11

Решение

Решение

@vladislav71 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 17
		1
	В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех чисел до тех пор, пока не встретится 11 13.03.2014, 16:04. Показов 3682. Ответов 3 Метки нет (Все метки) Помогите написать программный код: В переменную а последовательно вводятся числа -9, 18, 2, 6, 7, 20, 11, -6. Найти сумму всех чисел до тех пор, пока не встретится 11. 0

@vladislav71 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 17
	13.03.2014, 16:33 [ТС]	3
	Спасибо большое. 0

	13.03.2014, 16:55

Опции темы