Вопрос по информатике:
Дан одномерный целочисленный массив K из 15 элементов, заданный случайным образом в диапазоне от -20, до +25.
Найдите сумму всех положительных элементов, индексы которых кратны 3. Вывести на экран сам массив и сумму.
- 25.03.2018 08:28
- Информатика
- remove_red_eye 6166
- thumb_up 41
Ответы и объяснения 2
Program z1; const n = 15; Var k: array [1..n] of integer; i,s:integer;Begin randomize; for i:=1 to n do begin k[i]:=random(25)-20; write (k[i],' '); end; s:=0; for i:=1 to n do if ((k[i]>0)and(i mod 3 = 0)) then s:=s+k[i]; writeln; writeln('Сумма элементов - ',s);End.
- 26.03.2018 22:27
- thumb_up 48
Var K:array [1..15] of integer;
z:integer;
begin
for i:=1 to 15 do
k:= random(56)-20;
z:=0;
for i:=1 to 15 do
if k[i]>0 then z:=z+k[i];
for i:=1 to 15 do
writeln (z);
end.
Начало и доп знаки доставь
- 27.03.2018 12:09
- thumb_up 35
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.