задача на одномерный массив: в целочисленной последовательности есть нулевые элементы. создать массив из номеров этих элементов.
Код
program massiv;
uses crt;
var
a,mas:array[1..100] of shortint;
i,n,k:byte;
begin
clrscr;
k:=0;
write ('vvedite n');
read(n);
for i:=1 to n do
begin
writeln('vvedite ',i,' chislo');
read(a[i]);
if a[i]=0 then
begin
k:=k+1;
mas[k]:=i;
end;
end;
for i:=1 to k do
write(mas[i]);
end.
двумерный масив: дан массив А размером n*m. найти количество к особых элементов, считая элемент особым если он больше суммы остальных элементов его столбца.
Код
program zadacha;
uses crt;
var
max,s:integer;
i,j,k,n,m:byte;
a:array[1..100,1..100] of integer;
begin
clrscr;
max:=-32768;
k:=0;
write('vvedite n');
read(n);
write('vvedite m');
read(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
write('vvedite element massiva');
read(a[i,j]);
end;
end;
for j:=1 to m do
begin
for i:=1 to n do
begin
s:=s+a[i,j];
if a[i,j]>max then
begin
max:=a[i,j];
end;
s:=s-max;
end;
if max>s then
begin
k:=k+1;
write(max, ' ');
max:=-32768;
end;
end;
writeln;
write(k);
end.
