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
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
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.
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.