Obliczanie sumy liczb z przedzialu.

0

Witam

Proszę o pomoc w napisaniu programu.

Oblicz sumę liczb dodatnich z losowo wybranych 20 liczb z przedziału od -100 do 100.

W TP7

0
  1. pokaż liczbę losową z przedziału -100, 100 (hint rand)
0

Ech, zero samodzielności - nawet przy tak prostym kodzie. Znaj moją litość - masz gotowca i tak się nic nie nauczysz, bo Ciebie interesuje pewnie tylko żeby zdać i zapomnieć. I widze, że sezon zaliczen w językach Pascal / Delphi - rozpoczęty na dobre. I wiadomo, że taki temat powinien trafić do kosza, ale trafił do Newbie, bo dotyczy absolutnych podstaw języka.

program takie_podstawy_ze_rece_opadaja;

function RandomRange(const AFrom, ATo : integer) : integer;
begin
  if AFrom > ATo then
    RandomRange := Random(AFrom - ATo) + ATo
  else
    RandomRange := Random(ATo - AFrom) + AFrom;
end;

const
  Max = 20;
var
  I, Sum : integer;
  Arr : array[1..Max] of integer;
begin
  Sum := 0;
  Randomize;
  for I := Low(Arr) to High(Arr) do
  begin
    Arr[I] := RandomRange(-100, 100);
    if Arr[I] > 0 then
      Sum := Sum + Arr[I];
    Writeln('Liczba: ', I, ' = ', Arr[I]);
  end;
  Writeln('Suma dodatnich z powyzszych liczb: ', Sum);
  Readln;
end.
0
program gotowiec_dla_leniucha;
 
var Sum,Liczba,I:Integer;
begin
  Randomize;
  Sum:=0;
  for I:=1 to 20 do
  begin
     Liczba:=Random(201)-100;
     if Liczba>0 then Inc(Sum,Liczba);
  end;
  Writeln('Suma dodatnich z 20: ',Sum);
  Readln;
end.

1 użytkowników online, w tym zalogowanych: 0, gości: 1