Составить программу для вычисления - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д