Помогите с программой на языке Паскаль , используя подпрограмму "procedure".Пожалуйста, очень срочно нужно.
Задание 5,12
Приложения:
![](https://st.uroker.com/files/903/9036bba6c5d7636686d4c1f658c31e75.jpg)
Ответы
Ответ дал:
0
Жуткое "школьное решение"...
const
nn=10;
type
arr=array[1..nn] of integer;
var
a,b,c:arr;
i,k,m,n:integer;
y:real;
procedure Kol(p:arr; k:integer; var r:integer);
var
i:integer;
begin
r:=0;
for i:=1 to k do
if (p[i]>=1) and (p[i]<=5) then r:=r+1
end;
begin
Randomize;
Write('A: ');
for i:=1 to 10 do begin
a[i]:=Random(16)-5;
Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to 8 do begin
b[i]:=Random(16)-5;
Write(b[i],' ')
end;
Writeln;
Write('C: ');
for i:=1 to 7 do begin
c[i]:=Random(16)-5;
Write(c[i],' ')
end;
Writeln;
Kol(a,10,k); Kol(b,8,m); Kol(c,7,n);
y:=2/3+k+Abs(m-n);
Writeln('Y = ',y)
end.
const
nn=10;
type
arr=array[1..nn] of integer;
var
a,b,c:arr;
i,k,m,n:integer;
y:real;
procedure Kol(p:arr; k:integer; var r:integer);
var
i:integer;
begin
r:=0;
for i:=1 to k do
if (p[i]>=1) and (p[i]<=5) then r:=r+1
end;
begin
Randomize;
Write('A: ');
for i:=1 to 10 do begin
a[i]:=Random(16)-5;
Write(a[i],' ')
end;
Writeln;
Write('B: ');
for i:=1 to 8 do begin
b[i]:=Random(16)-5;
Write(b[i],' ')
end;
Writeln;
Write('C: ');
for i:=1 to 7 do begin
c[i]:=Random(16)-5;
Write(c[i],' ')
end;
Writeln;
Kol(a,10,k); Kol(b,8,m); Kol(c,7,n);
y:=2/3+k+Abs(m-n);
Writeln('Y = ',y)
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад