Составить программу для вычисления - 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.

Оцени полезность:

8   голосов , оценка 4.375 из 5
Похожие ответы