1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)дан одномерный массив из 7 элементов.найти колличество четных положительных элементов. 3)дан массив из 6 элементов.найти произвдение положительных из них.
Program Alexandra_1; uses crt; const n=5; var a:array[1..n] of integer; i, sum: integer; begin sum:=0; for i:=1 to n do begin write('Введите ',i,'-e число '); readln(a[i]); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов ',sum); end.
Program Alexandra_2; uses crt; const n=7; var a:array[1..n] of integer; i, num: integer; begin num:=0; for i:=1 to n do begin write('Введите ',i,'-e число '); readln(a[i]); if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1; end; writeln('Количество четных положительных элементов ',num); end.
Program Alexandra_3; uses crt; const n=6; var a:array[1..n] of integer; i, tum: integer; begin tum:=1; for i:=1 to n do begin write('Введите ',i,'-e число '); readln(a[i]); if a[i]>0 then tum:=tum*a[i]; end; writeln('Произведение положительных элементов ',tum); end.
var i,s:integer; a:array[1..5] of integer; begin randomize; s:=0; for i:=1 to 5 do begin a[i]:=random(15)-5; if a[i]>0 then s:=s+a[i]; end; writeln(s); readln; end.
uses crt;
var i,s:integer; a:array[1..7] of integer; begin s:=0; randomize; for i:=1 to 7 do begin a[i]:=random(15)-5; if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s); end; writeln(s); readln; end.
uses crt;
var i,s:integer; a:array[1..6] of integer; begin s:=1; randomize; for i:=1 to 6 do begin a[i]:=random(15)-5; if (a[i]>0) then s:=s*a[i]; end; writeln(s); readln; end.
Program Alexandra_1;
uses crt;
const n=5;
var
a:array[1..n] of integer;
i, sum: integer;
begin
sum:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов ',sum);
end.
Program Alexandra_2;
uses crt;
const n=7;
var
a:array[1..n] of integer;
i, num: integer;
begin
num:=0;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if (a[i]>0) AND (a[i] mod 2 = 0) then num:=num+1;
end;
writeln('Количество четных положительных элементов ',num);
end.
Program Alexandra_3;
uses crt;
const n=6;
var
a:array[1..n] of integer;
i, tum: integer;
begin
tum:=1;
for i:=1 to n do
begin
write('Введите ',i,'-e число ');
readln(a[i]);
if a[i]>0 then tum:=tum*a[i];
end;
writeln('Произведение положительных элементов ',tum);
end.
uses crt;
var i,s:integer;
a:array[1..5] of integer;
begin
randomize;
s:=0;
for i:=1 to 5 do
begin
a[i]:=random(15)-5;
if a[i]>0 then s:=s+a[i];
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..7] of integer;
begin
s:=0;
randomize;
for i:=1 to 7 do
begin
a[i]:=random(15)-5;
if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);
end;
writeln(s);
readln;
end.
uses crt;
var i,s:integer;
a:array[1..6] of integer;
begin
s:=1;
randomize;
for i:=1 to 6 do
begin
a[i]:=random(15)-5;
if (a[i]>0) then s:=s*a[i];
end;
writeln(s);
readln;
end.