Дан массив K(N), N-12. В массиве есть один элемент, значение которого
Дан массив K(N), N-12. В массиве есть один элемент, значение которого одинаково 100. Найти его порядковый номер. Вычислить сумму значений элементов массива, стоящих перед элементом, значение которого одинаково 100.
Задать свой вопрос
Толик Шендиков
Что означает ", N-12" ?
Ольга Канцыбко
В массиве всего 12 частей?
Ярослава Двинятина
n=12
2 ответа
Sema Brykovskij
Const n=12;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do a[i]:=random(101);
a[random(n)+1]:=100;
for i:=1 to n do write(a[i]:4);
writeln;
s:=0; i:=1;
while a[i]lt;gt;100 do
begin s:=s+a[i]; i:=i+1; end;
writeln('Номер элемента = 100: ',i);
writeln('s = ',s);
end.
Пример:
Массив A:
76 40 46 50 100 96 86 29 4 13 80 98
Номер элемента = 100: 5
s = 212
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do a[i]:=random(101);
a[random(n)+1]:=100;
for i:=1 to n do write(a[i]:4);
writeln;
s:=0; i:=1;
while a[i]lt;gt;100 do
begin s:=s+a[i]; i:=i+1; end;
writeln('Номер элемента = 100: ',i);
writeln('s = ',s);
end.
Пример:
Массив A:
76 40 46 50 100 96 86 29 4 13 80 98
Номер элемента = 100: 5
s = 212
Таисия Гацева
Const
N = 12;
Var
K:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив K(',N,'): ');
For i:= 1 to N do
Read(K[i]);
S:=0;
i:=1;
if K[i] = 100 then
Write('Перед массивом со значением 100 нет частей.')
else
Begin
While K[i]lt;gt;100 do
Begin
S:=S+K[i];
i:=i+1;
End;
WriteLn('Номер элемента со значением 100: ',i);
Write('Разыскиваемая сумма: ',S);
End;
End.
N = 12;
Var
K:array[1..N] of integer;
i:integer;
S:real;
Begin
Write('Введите массив K(',N,'): ');
For i:= 1 to N do
Read(K[i]);
S:=0;
i:=1;
if K[i] = 100 then
Write('Перед массивом со значением 100 нет частей.')
else
Begin
While K[i]lt;gt;100 do
Begin
S:=S+K[i];
i:=i+1;
End;
WriteLn('Номер элемента со значением 100: ',i);
Write('Разыскиваемая сумма: ',S);
End;
End.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Облако тегов