Вопрос по информатике:
Помогите с паскалем.
Составить блок схему и программу.
1. Найти сумму четных элементов массива целых чисел.
2. Дан массив в котором все элементы различны. Удалить из него минимальный элемент.
- 10.06.2018 07:02
- Информатика
- remove_red_eye 17131
- thumb_up 16
Ответы и объяснения 1
var
a: array of integer;
s, i, j: integer;
begin
setLength(a, 11);
for i := 0 to 10 do
begin
a[i] := round(random(55));
write(a[i]:6);
end;
writeln(#13, #13, '-=1=-');
for i := 0 to 10 do
if (a[i] mod 2 = 0) then
s := s + a[i];
writeln(s);
writeln(#13, #13, '-=2=-');
s := 0;
for i := 0 to 10 do
if (a[s] > a[i]) then
s := i;
for i := s to 9 do
a[i] := a[i + 1];
setLength(a, 10);
for i := 0 to 9 do
write(a[i]:6);
end.
- 11.06.2018 19:27
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.