Решенные задачи на языке Паскаль
Условие задачи прислали на e-mail.
Даны действительные числа Х1...Хn в последовательности Х1...Xn. Все члены меньше двух заменить нулями и получить сумму, пренадлежащую отрезку [3,7] (решить через массив).
VAR
a:array[1..99]of real;
n,i:word;
summa:real;
BEGIN
{ 1). Количество элементов в массиве}
write('Сколько чисел в массиве (больше 6): ');
readln(n);
if n<7 then halt;
{ 2). Запись чисел в массив}
for i:=1 to n do
begin
write('Введите значение ',i,'-го элемента массива: ');
readln(a[i]);
end;
{ 3). Замена элементов меньших 2 на 0}
writeln;
writeln('Результат замены элементов меньших 2 на 0:');
for i:=1 to n do
begin
if a[i]<2 then a[i]:=0;
writeln('Значение ',i,'-го элемента : ',a[i]:2:2);
end;
{ 4). Получение суммы элементов от 3 до 7}
writeln;
summa:=0;
for i:=3 to 7 do summa:=summa+a[i];
writeln('Сумма элементов от 3 до 7 равна ',summa:2:2);
END.
* переменная a - исходный массив с максимальным числом элементов 99* переменные n,i - переменные для количества элементов и для цикла
* переменная summa - для подсчета суммы элементов в интервале от 3 до 7.
Решение этой задачи я разбил на 4 части: количество элементов в массиве, запись чисел в массив, замена элементов меньших 2 на 0, получение суммы элементов от 3 до 7.
Количество элементов в массивеТак как мы не знаем сколько элементов в цикле, то поэтому нужно запрашивать количество элементов от пользователя (ввод с клавиатуры). При этом надо учесть, что число элементов не может быть меньше 7 так как в задаче сказано "... получить сумму, пренадлежащую отрезку [3,7]". Поэтому ставим условие if n<7 then halt; - если введеное число меньше 7, то программа завершает работу.
Запись чисел в массив
После того как программа знает сколько будет элементов в массиве, нужно с помощью цикла присвоить каждому элементу свое значение.
Замена элементов меньших 2 на 0
После того как получен массив (т.е. те действительные числа Х1...Хn), нужно все члены меньше двух заменить нулями.
Получение суммы элементов от 3 до 7
Для получения суммы элементов от 3 до 7 нужно просто в цикле от 3 до 7 сложить эти элементы.