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