Опубликовано 5 лет назад по предмету Информатика от Lola19950106

Написать программу суммирования элементов массива, состоящего из 20 произвольных чисел до первого отрицательного числа.
Помогите плз срочно.

Ответ

Ответ дан Impersona1

program symm;uses crt;
const N=20;
var masiv:array [1..20] of integer; i:integer; summa,x:integer;begin for i:= 1 to N do begin masiv[i]:=Random(25)-10; Writeln(masiv[i]) end; for i:= 1 to N do if (masiv[i]>0) then begin x:=masiv[i]; summa:=summa+x; end else begin Writeln(); Writeln('Сумма элементов массива до первого отрицательного числа=',summa); Halt end;
end.
1. Ответ
  
  Ответ дан archery
  
  работает но не читабельно
2. Ответ
  
  Ответ дан Impersona1
  
  В Pascal я вводил нормально,при копирование вот так вышло.Я не собираю еще сюда вводить в ручную.
Ответ

Ответ дан petyaGavrikov

const n=20;
var a:array [1..n] of integer;
s,i:integer;
begin
Randomize;
for i:= 1 to n do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
writeln;
s:=0;
i:=1;
while (i<=n)and(a[i]>0) do
begin s:=s+a[i]; i:=i+1; end;
Writeln('Сумма элементов массива до первого отрицательного числа = ',s);
end.

Пример:
7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6
Сумма элементов массива до первого отрицательного числа = 11
1. Ответ
  
  Ответ дан Impersona1
  
  lol

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.