ia:=0;
ic:=0;
for i:=1 to n do
begin
if (a=b) and (ia=0) then ib:=i;
if (a=c) and (ia=0) then ic:=i;
end;
одномерные массиввы (Pascal)
Нужна помощь в составлении программ для задач через Pascal
1) Составьте программу, проверяющую, есть ли в одномерном маччиве A(N) числа B,C и определяющую, какое из них встречается раньше, если таковые имеются.
2) Составьте программу, отыскивающую наибольший элемент одномерного массива A(N) из числа принадлежащих интервалу (min,(min+max/2)) (min и max - соответственно минимальный и максимальный элементы массива).
3) Составьте программу вычисления суммы повторяющихся элементов одномерного массива.
4) Составьте программу подсчета числа элементов встречающихся только в одном из массивов А(N) или В(N).
5) Составьте программу подсчета числа повторяющихся отрицательных элементов одномерного массива А(Q).
6) Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов А(N), В(N), лежащих в интервале (C,D).
1) Составьте программу, проверяющую, есть ли в одномерном маччиве A(N) числа B,C и определяющую, какое из них встречается раньше, если таковые имеются.
2) Составьте программу, отыскивающую наибольший элемент одномерного массива A(N) из числа принадлежащих интервалу (min,(min+max/2)) (min и max - соответственно минимальный и максимальный элементы массива).
3) Составьте программу вычисления суммы повторяющихся элементов одномерного массива.
4) Составьте программу подсчета числа элементов встречающихся только в одном из массивов А(N) или В(N).
5) Составьте программу подсчета числа повторяющихся отрицательных элементов одномерного массива А(Q).
6) Составьте программу нахождения наименьшего и наибольшего элементов одномерных массивов А(N), В(N), лежащих в интервале (C,D).
№2
Код:
const n=10;
var max,min,maxi:real;
matrix:array[1..n]of real;
i,j:word;
begin
randomize;
for i:=1 to n do
begin
matrix:=random(10)+random(10)/10;
write(' ',matrix:2:2);
end;
writeln;
min:=matrix[1];
max:=matrix[1];
for i:=1 to n do
begin
if matrix>max then max:=matrix;
if matrix<min then min:=matrix;
end;
maxi:=0;
j:=0;
for i:=1 to n do
if (matrix>min) and (matrix<max/2) then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (matrix>min) and (matrix<max/2) then begin maxi:=matrix;break;end;
for i:=1 to n do
if (matrix>min) and (matrix<max/2) and (matrix>maxi) then maxi:=matrix;
writeln(' ',maxi:2:2);
end else writeln('no elements in (min,max/2)');
readln;
var max,min,maxi:real;
matrix:array[1..n]of real;
i,j:word;
begin
randomize;
for i:=1 to n do
begin
matrix:=random(10)+random(10)/10;
write(' ',matrix:2:2);
end;
writeln;
min:=matrix[1];
max:=matrix[1];
for i:=1 to n do
begin
if matrix>max then max:=matrix;
if matrix<min then min:=matrix;
end;
maxi:=0;
j:=0;
for i:=1 to n do
if (matrix>min) and (matrix<max/2) then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (matrix>min) and (matrix<max/2) then begin maxi:=matrix;break;end;
for i:=1 to n do
if (matrix>min) and (matrix<max/2) and (matrix>maxi) then maxi:=matrix;
writeln(' ',maxi:2:2);
end else writeln('no elements in (min,max/2)');
readln;
4,5,6 вроде так:
№4
№5
№6
№4
Код:
uses
crt;
const n=10;
var a,b:array[1..n]of integer;
i,j,k,l:word;
begin
randomize;
for i:=1 to n do
begin
a:=random(20);
b:=random(20);
end;
for i:=1 to n do
write(' ',a);
writeln;
for i:=1 to n do
write(' ',b);
writeln;
k:=0;
l:=0;
for i:=1 to n do
begin
for j:=1 to n do
if a=b[j] then inc(k);
if k=0 then inc(l);
k:=0;
end;
writeln('only in a(n):=',l);
k:=0;
l:=0;
for i:=1 to n do
begin
for j:=1 to n do
if b=a[j] then inc(k);
if k=0 then inc(l);
k:=0;
end;
writeln('only in b(n):=',l);
readln;
end.
crt;
const n=10;
var a,b:array[1..n]of integer;
i,j,k,l:word;
begin
randomize;
for i:=1 to n do
begin
a:=random(20);
b:=random(20);
end;
for i:=1 to n do
write(' ',a);
writeln;
for i:=1 to n do
write(' ',b);
writeln;
k:=0;
l:=0;
for i:=1 to n do
begin
for j:=1 to n do
if a=b[j] then inc(k);
if k=0 then inc(l);
k:=0;
end;
writeln('only in a(n):=',l);
k:=0;
l:=0;
for i:=1 to n do
begin
for j:=1 to n do
if b=a[j] then inc(k);
if k=0 then inc(l);
k:=0;
end;
writeln('only in b(n):=',l);
readln;
end.
№5
Код:
uses
crt;
const n=20;
var a:array[1..n]of integer;
i,j,k,l:word;
begin
randomize;
for i:=1 to n do
begin
a:=-5+random(10);
write(' ',a);
end;
writeln;
k:=0;
for i:=1 to n do
begin
if a<0 then
begin
for j:=1 to n do
if a=a[j] then begin inc(k); if i<>j then a[j]:=0;end;
writeln(a,' : ',k);
k:=0;
end;
end;
readln;
end.
crt;
const n=20;
var a:array[1..n]of integer;
i,j,k,l:word;
begin
randomize;
for i:=1 to n do
begin
a:=-5+random(10);
write(' ',a);
end;
writeln;
k:=0;
for i:=1 to n do
begin
if a<0 then
begin
for j:=1 to n do
if a=a[j] then begin inc(k); if i<>j then a[j]:=0;end;
writeln(a,' : ',k);
k:=0;
end;
end;
readln;
end.
№6
Код:
uses
crt;
const n=10;
c=2;
d=5;
var a,b:array[1..n]of integer;
i,j:word;
max,min:integer;
begin
randomize;
for i:=1 to n do
begin
a:=-10+random(20);
b:=-10+random(20);
end;
for i:=1 to n do
write(' ',a);
writeln;
for i:=1 to n do
write(' ',b);
writeln;
j:=0;
for i:=1 to n do
if (a>c)and(a<d)then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (a>c) and (a<d) then begin max:=a;break;end;
min:=max;
for i:=1 to n do
begin
if (a>c) and (a<d) and (a>max) then max:=a;
if (a>c) and (a<d) and (a<min) then min:=a
end;
writeln('min in a[n]:=',min,' ','max in a[n]:=',max);
end else writeln('not elements in a[n] in (c,d)');
j:=0;
for i:=1 to n do
if (b>c)and(b<d)then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (b>c) and (b<d) then begin max:=b;break;end;
min:=max;
for i:=1 to n do
begin
if (b>c) and (b<d) and (b>max) then max:=b;
if (b>c) and (b<d) and (b<min) then min:=b
end;
writeln('min in b[n]:=',min,' ','max in b[n]:=',max);
end else writeln('not elements in b[n] in (c,d)');
readln;
end.
crt;
const n=10;
c=2;
d=5;
var a,b:array[1..n]of integer;
i,j:word;
max,min:integer;
begin
randomize;
for i:=1 to n do
begin
a:=-10+random(20);
b:=-10+random(20);
end;
for i:=1 to n do
write(' ',a);
writeln;
for i:=1 to n do
write(' ',b);
writeln;
j:=0;
for i:=1 to n do
if (a>c)and(a<d)then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (a>c) and (a<d) then begin max:=a;break;end;
min:=max;
for i:=1 to n do
begin
if (a>c) and (a<d) and (a>max) then max:=a;
if (a>c) and (a<d) and (a<min) then min:=a
end;
writeln('min in a[n]:=',min,' ','max in a[n]:=',max);
end else writeln('not elements in a[n] in (c,d)');
j:=0;
for i:=1 to n do
if (b>c)and(b<d)then inc(j);
if j<>0 then
begin
for i:=1 to n do
if (b>c) and (b<d) then begin max:=b;break;end;
min:=max;
for i:=1 to n do
begin
if (b>c) and (b<d) and (b>max) then max:=b;
if (b>c) and (b<d) and (b<min) then min:=b
end;
writeln('min in b[n]:=',min,' ','max in b[n]:=',max);
end else writeln('not elements in b[n] in (c,d)');
readln;
end.
спасибо БОЛЬШОЕ