Привет товарисчи! Кому не сложно, подмогните, я с дельфом не очень дружу, на уровне написания калькулятора, кто сможнёт, встройте коды в программку, а то я не знаю как)
1.Вывести на экран номера столбцов, в которых максимальный элемент попадает в интервал [A,B], а так же соответствующие значения максимальных элементов(тобиш номера этих элементов)
| Код |
Var c:array[1..100,1..100] of longint;
i,j:byte;
a,b:longint;
n,max:integer;
begin
writeln('введи N'); readln(n);
Writeln('Введи интервал'); readln(a,b);
Writeln('Введите элементы: ');
For i:=1 to n do
Begin
For j:=1 to n do
Readln(c[i,j]);
end;
max:=c[i,1];
if ((c[i,j] in [a..b]) and (c[i,j]>max))
then begin
max:=c[i,j];
break;
end; end;
Writeln('максимум ',max,' на столбце ',j,' на строке ',i );
end;
readln;
end.
|
2. Сформировать одномерный массив, состоящий из кол-ва положительный, отрицательных и нулевых элементов матрицы X[n,m]
| Код |
program mas;
uses crt;
var
h,i,pol,otr,nul:integer;
x:array [1..n,1..n] of extended; y:array [1..n] of extended;
begin
writeln('введи n'); readln(n)
writeln('Введи элементы массива');
otr:=0;
pol:=0;
nul:=0;
for i:=1 to n do begin
for j:=1 to n do
readln(x[i,j]);
if x[i,j]<0 then otr:=otr+1;
else if x[i,j]>0 then pol:=pol+1;
else if x[i,j]=0 then nul:=nul+1;
end;
readln;
end.
|
3 Все элементы матрицы X[n,n] лежащие ниже второстепенной диагонали заменить суммой элементов дробной части, стоящих в нечетных столбцах
| Код |
Const
n = 3;
Var
a:array [1..n,1..n] of extended;
i,j:integer;
sum:extended;
Begin
Writeln('Введите элементы: ');
For i:=1 to n do
Begin
For j:=1 to n do
Readln(a[i,j]);
Writeln('---');
End;
Writeln;
writeln('Начальная матрица: ');
For i:=1 to n do
Begin
For j:=1 to n do
Write(a[i,j],' ');
writeln;
End;
sum:=0;
For i:=1 to n do
For j:=1 to n do
If (odd(j)) and (frac(a[i,j]) <> 0) then sum:=sum+a[i,j];
Writeln;
Writeln('Сумма элементов, стоящих в нечетных столбцах и имеющих дробную часть ',sum);
For i:=2 to n do
For j:=n-i+2 to n do
a[i,j]:=a[i,j]+sum; {Выполнение сложения}
writeln;
Writeln('Конечная матрица: ');
For i:=1 to n do
Begin
For j:=1 to n do
Write(a[i,j],' ');
writeln;
End;
End.
|
Вроде оно и не сложно, но что-то не выходит. Естессно, програмки должны выполняться по выбору, I,II или III
За помощь, желательно с комментами что и куда делали(ибо я и сам разобраться хочу) куча благодарностей гарантирую! 
и для троллей, я знаю что я тупой, я знаю что надо курить мануалы и ваще лучше учить си |
