Составить программу для вычисления - Pascal ABC
Формулировка задачи:
U - сумма элементов массива с нечетными номерами;
R - количество нулевых элементов массива;
S - номер первого нулевого элемента массива.
Решение задачи: «Составить программу для вычисления»
textual
Листинг программы
const
n = 10; //размер массива. Можно изменить
var
x: array [1..n] of integer;
i, U, R, S: integer;
V: real;
begin
S := 0;
for i := 1 to n do
begin
x[i] := Random(10);
Write(x[i], ' ');
if Odd(i) then U := U + x[i];
if x[i] = 0 then R := R + 1
end;
for i := n downto 1 do
if x[i] = 0 then S := i;
V := U / (R + 1) + S;
WriteLn;
WriteLn('U = ', U);
WriteLn('R = ', R);
WriteLn('S = ', S);
WriteLn('V = ', V:0:2);
ReadLn
end.