Предмет: Информатика,
автор: leo754
Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 8. Найти сумму элементов участка массива, начиная с первого положительного и кончая вторым положительным элементом.
Ответы
Автор ответа:
0
Как то так:
var a: array[1..1000] of integer;
b: array [1..2] of integer;
i, j, sum: integer;
begin
for i := 1 to 1000 do
a[i] := random(13) - 5;
j := 1;
for i := 1 to 1000 do begin
if j = 3 then break;
if a[i] > 0 then begin b[j] := i;inc(j); end;
end;
for i := b[1] to b[2] do sum := sum + a[i];
writeln(sum);
end.
var a: array[1..1000] of integer;
b: array [1..2] of integer;
i, j, sum: integer;
begin
for i := 1 to 1000 do
a[i] := random(13) - 5;
j := 1;
for i := 1 to 1000 do begin
if j = 3 then break;
if a[i] > 0 then begin b[j] := i;inc(j); end;
end;
for i := b[1] to b[2] do sum := sum + a[i];
writeln(sum);
end.
Приложения:
Автор ответа:
0
а на Visual Basic как это будет выглядеть?
Автор ответа:
0
Я уже и не помню Visual Basic, касался его чуть. Помочь не могу. Если только идею рассказать
Интересные вопросы
Предмет: Русский язык,
автор: nikitapeskij
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: vanzaybanzay
Предмет: Алгебра,
автор: doc1797
Предмет: Алгебра,
автор: Sidorenko1997