Обработка одномерных массивов - PascalABC.NET
Формулировка задачи:
Составить программу вычисления, W=B+A/C+1.
A - сумма положительных элементов массива;
B - наименьший элемент массива;
C - произведение элементов массива с нечетными номерами/
Решение задачи: «Обработка одномерных массивов»
textual
Листинг программы
program a1;
uses crt;
const n=10;
type x=array [1..n] of integer;
var s:x;
i:integer;
a,b,c,w:real;
begin clrscr;
randomize;
for i:=1 to n do begin
s[i]:= random(50)-25;
write(s[i],' ');
end;
a:=0; c:=1;
for i:=1 to n do begin
if s[i]>0 then a:=a+s[i];
if b>s[i] then b:=s[i];
if odd(i) then c:=c*s[i];
end;
writeln;
writeln('Cумма положительных элементов массива = ',a);
writeln('Hаименьший элемент массива = ',b);
writeln('Произведение элементов массива с нечетными номерами = ',c);
w:=b+a/c+1;
writeln ('W = ',w:0:5);
readln
end.
Объяснение кода листинга программы
- Объявлены переменные: s - одномерный массив, i - целочисленная переменная для цикла, a, b, c, w - вещественные переменные.
- Задано значение константы n равное 10.
- Введен тип данных x, который является одномерным массивом длиной n, содержащим целочисленные значения.
- Задано значение переменной s типа x.
- В цикле заполняется массив s случайными значениями от -25 до 25.
- В цикле вычисляются значения переменных a, b и c. Переменная a накапливает сумму положительных элементов массива, переменная b содержит наименьший элемент массива, переменная c - произведение элементов с нечетными номерами.
- Выводятся значения переменных a, b и c.
- Вычисляется значение переменной w как сумма b и a, деленная на c и увеличенная на 1.
- Выводится значение переменной w.
- Программа ожидает ввода с помощью функции readln.