Вопрос по информатике:
1. Массив из 10 элементов, вводим их с клавиатуры. Вывести на экран все положительные элементы и вычислить их сумму
2. Вывести на экран элементы массива, стоящие на нечетных местах, вычислить их сумму (В массиве 20 элементов, заполнен случайными числами.)
3. Массив из 20 элементов, заполнен случайными числами в диапазоне от -50 до 50 . Вывести на экран, посчитать количество чисел, меньших 25
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 12.02.2017 23:11
- Информатика
- remove_red_eye 16040
- thumb_up 18
Ответы и объяснения 1
1
var
a:array[1..10]of integer;
s,i:integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
if a[i]>0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln('Сумма: ',s);
end.
2
var
a:array[1..20]of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('Искомые элементы: ');
for i:=1 to 20 do
if i mod 2=1 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln('Их сумма: ',s);
end.
3
var
a:array[1..20]of integer;
s,i:integer;
begin
writeln('Исходный массив:');
for i:=1 to 20 do
begin
a[i]:=random(-50,50);
write(a[i],' ');
end;
writeln;
write('Меньше 25: ');
for i:=1 to 20 do
if a[i]<25 then
begin
s:=s+1;
write(a[i],' ');
end;
writeln;
writeln('Их количество: ',s);
end.
- 13.02.2017 20:42
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.