Найти произведение всех элементов массива - Pascal ABC (19337)
Формулировка задачи:
19. Определить:
а) сумму всех элементов массива;
б) произведение всех элементов массива;
в) сумму квадратов всех элементов массива;
г) сумму шести первых элементов массива;
д) сумму элементов массива с k1-гo по k2-й (значения k1 и k2
вводятся с клавиатуры; k2 > k1;
Решение задачи: «Найти произведение всех элементов массива»
textual
Листинг программы
program kvad;
uses crt;
var a:array[1..100]of Integer;
i,n,sum,proz,sumkv,sum6,sumz,k1,k2:Integer;
begin
proz:=1;
ClrScr;
Write('Введите размер массива,n=');
Readln(n);
Writeln('Введите значения элементов массива:');
for i:=1 to n do
begin
Write('a[',i,']=');
Readln(a[i]);
end;
Writeln('Заданный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln;
Write('k1=');
Readln(k1);
Write('k2=');
Readln(k2);
for i:=1 to n do
begin
sum:=sum+a[i];
proz:=proz*a[i];
sumkv:=sumkv+sqr(a[i]);
if i<=6 then sum6:=sum6+a[i];
if i in [k1..k2] then sumz:=sumz+a[i];
end;
Writeln('Сумма всех элементов:',sum);
Writeln('Произведение всех элементов массива:',proz);
Writeln('Сумма квадратов всех элементов массива:',sumkv);
Writeln('Cумма шести первых элементов массива:',sum6);
Writeln('Cумма элементов массива с k1-гo по k2-й:',sumz);
Readln;
end.
Объяснение кода листинга программы
Список действий в коде:
- Инициализация переменных.
- Ввод размера массива и его элементов.
- Вывод заданного массива.
- Ввод дополнительных параметров (k1, k2).
- Суммирование всех элементов массива.
- Нахождение произведения всех элементов массива.
- Нахождение суммы квадратов всех элементов массива.
- Нахождение суммы первых шести элементов массива.
- Нахождение суммы элементов массива с k1-го по k2-й.
- Ввод для завершения работы программы. Список переменных и их значения:
- a - массив из 100 целых чисел.
- i, n - счетчики для цикла по элементам массива.
- sum, proz, sumkv, sum6, sumz, k1, k2 - переменные для промежуточных расчетов.