Ввести массивы Z [0..3] и A [0..3] . Найти сумму дробных положительных элементов введенных массивов.
Answers & Comments
darria06
Program tasc1; Var i,sum : integer; a: array [1..10] of integer; begin writeln ('input array '); for i:=1 to 10 do begin write ('a(',i,')='); readln (a[ i ]); end; sum:=0; for i:=1 to 10 do sum:=sum+a[ i ]; writeln ('sum=',sum); end.
0 votes Thanks 1
darria06
program massiv; uses crt; var i,s:integer; mas:array[1..10] of integer; begin clrscr; writeln; for i:=1 to 10 do begin write('введите ',i,'элемент '); readln(mas); end; writeln; writeln; for i:=0 to 9 do if mas>0 then s:=s+mas; writeln('сумма положительных элементов массива = ',s); readln end.
Didi13
необходимо найти сумму ДРОБНЫХ положительных
Answers & Comments
Var i,sum : integer;
a: array [1..10] of integer;
begin
writeln ('input array ');
for i:=1 to 10 do
begin
write ('a(',i,')=');
readln (a[ i ]);
end;
sum:=0;
for i:=1 to 10 do sum:=sum+a[ i ];
writeln ('sum=',sum);
end.
uses crt;
var
i,s:integer;
mas:array[1..10] of integer;
begin
clrscr;
writeln;
for i:=1 to 10 do begin
write('введите ',i,'элемент ');
readln(mas);
end;
writeln;
writeln;
for i:=0 to 9 do
if mas>0 then s:=s+mas;
writeln('сумма положительных элементов массива = ',s);
readln
end.