sciaga 1-ciagi, Logistyka Semestr 1, Technologie internetowe

Twoim problemem jest to, że powszechną NICOŚĆ mylisz z osobistą PUSTKĄ

Dany jest ciag n liczb rzeczywistych. Opracowac aplikacje, które wyznaczaja:

a) sume liczb z przedziału <0, 10>

b) ile liczb z danego ciagu jest ujemnych,

c) srednia z liczb ujemnych,

d) najwieksza liczbe z danego ciagu.

program z5a;

uses

SysUtils;

var

n,i:integer;

s:real;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

s:=0;

for i:=1 to n do

if (a[i]>=0) and (a[i]<=10)then

s:=s+a[i];

writeln('s=',s:8:2);

write('enter');

readln;

end.

program z5b;

uses

SysUtils;

var

n,i,u:integer;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

u:=0;

for i:=1 to n do

if (a[i]<0) then

u:=u+1;

writeln('ujemnych= ',u);

write('enter');

readln;

end.

program z5c;

SysUtils;

var

n,i,s,u:integer;

sr:real;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

s:=0; u:=0;

for i:=1 to n do

if (a[i]<0) then

s:=s+a[i];

if (a[i]<0) then

u:=u+1 ;

sr:=s/u;

writeln('srednia ujemnych=',sr:4:2);

write('enter');

readln;

end.

program z5d;

uses

SysUtils;

var

n,i,max:integer;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

max:=0;

for i:=1 to n do

if (a[i]>max) then

max:=a[i];

writeln('max =',max);

write('enter');

readln;

end.

Dany jest ciag n liczb rzeczywistych. Opracowac aplikacje, które wyznaczaja:

a) sume liczb z przedziału <0, 10>

b) ile liczb z danego ciagu jest ujemnych,

c) srednia z liczb ujemnych,

d) najwieksza liczbe z danego ciagu.

program z5a;

uses

SysUtils;

var

n,i:integer;

s:real;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

s:=0;

for i:=1 to n do

if (a[i]>=0) and (a[i]<=10)then

s:=s+a[i];

writeln('s=',s:8:2);

write('enter');

readln;

end.

program z5b;

uses

SysUtils;

var

n,i,u:integer;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

u:=0;

for i:=1 to n do

if (a[i]<0) then

u:=u+1;

writeln('ujemnych= ',u);

write('enter');

readln;

end.

program z5c;

SysUtils;

var

n,i,s,u:integer;

sr:real;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

s:=0; u:=0;

for i:=1 to n do

if (a[i]<0) then

s:=s+a[i];

if (a[i]<0) then

u:=u+1 ;

sr:=s/u;

writeln('srednia ujemnych=',sr:4:2);

write('enter');

readln;

end.

program z5d;

uses

SysUtils;

var

n,i,max:integer;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

max:=0;

for i:=1 to n do

if (a[i]>max) then

max:=a[i];

writeln('max =',max);

write('enter');

readln;

end.

Dany jest ciag n liczb rzeczywistych. Opracowac aplikacje, które wyznaczaja:

a) sume liczb z przedziału <0, 10>

b) ile liczb z danego ciagu jest ujemnych,

c) srednia z liczb ujemnych,

d) najwieksza liczbe z danego ciagu.

program z5a;

uses

SysUtils;

var

n,i:integer;

s:real;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n do

begin

write (i,' liczba = '); readln(a[i]);

end;

s:=0;

for i:=1 to n do

if (a[i]>=0) and (a[i]<=10)then

s:=s+a[i];

writeln('s=',s:8:2);

write('enter');

readln;

end.

program z5b;

uses

SysUtils;

var

n,i,u:integer;

a:array[0..10] of integer;

begin

write('ile liczb? '); readln(n);

for i:=1 to n...

sciaga 1-ciagi, Logistyka Semestr 1, Technologie internetowe - Lachowicz

Twoim problemem jest to, że powszechną NICOŚĆ mylisz z osobistą PUSTKĄ

Formularz