Вопрос по информатике:
Помогите пожалуйста с задачками))) Pascal
1) Найти сумму всех элементов массива, заполненных случайными числами?
2) Найти сумму четных элементов массива?
3) Найти сумму элементов массива, стоящих на четных местах?
- 14.04.2018 18:01
- Информатика
- remove_red_eye 5381
- thumb_up 19
Ответы и объяснения 1
Program primer;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if a[i] mod 2=0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
program primer2;
const n =10;
var a:array[1..n] of integer;
s,i:integer;
begin
randomize;
for i :=1 to n do
begin
a[i]:=random(19);
readln(' ' ,a[i]);
end;
s:=0;
for i :=1 to n do
if i mod 2 =0 then s:=s+a[i];
writeln('s=',s);
readln;
end.
- 15.04.2018 14:28
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.