24 за программу_) паскаль 10 класс дан массив, заданный датчиком случайных чисел в интервале [-70; 150]. найти количество отрицательных и положительных элементов массива.
Const n=20; var x : array[1..n] of integer; i, k1, k2 : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=random(221)-70; write(x[i],' '); end; writeln; k1:=0; k2:=0; for i:=1 to n do begin if x[i] > 0 then k1:=k1+1; if x[i] < 0 then k2:=k2+1; end; writeln('k1=',k1,' k2=',k2); end.
Программа на паскале: const n=10; var a:array[1..n] of integer; max,min,imax,imin,s,i:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(51); write(a[i],' '); end; writeln; max:=a[1]; imax:=1; min:=a[1]; imin:=1; for i:=1 to n do begin if a[i]>max then begin max:=a[i]; imax:=i; end; if a[i]<min then begin min:=a[i]; imin:=i; end; end; writeln('max = ',max,' min = ',min); s:=0; if imax<imin then for i:=imax to imin do s:=s+a[i] else for i:=imin to imax do s:=s+a[i]; writeln('s = ',s); end.
Пример: 38 15 4 5 9 15 24 40 12 9 max = 40 min = 4 s = 97
var x : array[1..n] of integer;
i, k1, k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(221)-70;
write(x[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
begin
if x[i] > 0 then k1:=k1+1;
if x[i] < 0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
end.
Пример:
Исходный массив:
73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25
k1=13 k2=7