Из С в Паскаль
 

:tehnari_ru_837:Народ завтра экзамен, пересдача экзамена, 3 зачета... :tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837:
Положение критическое:tehnari_ru_837: :tehnari_ru_837: :tehnari_ru_837:
:)) уже неделю сижу на кофе... сплю если только сам отключусь tehnosleep хочуtehno039 Умереть!!! tehno039
тупо времени не хватает...
Вся эта байда написана на Си, хотя это и так видно, нужно сие безумного ума перевести в Паскаль...
// pascal.cpp: определяет точку входа для консольного приложения.
//

#include "stdafx.h"
#include <stdlib.h>


int _tmain(int argc, _TCHAR* argv[])
{
int a[30][30],k,o,i,j,min,max,u,h,n;

printf("Vvedite razmernost matrizi\n");
scanf("%d",&k);

printf("Kak zapolnat matrizu\n 1-V ruchnuy\n 2-Rand\n");
scanf("%d",&o);
if(o==1)
{
printf("Vvodite elementi\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
scanf("%d",&a[i][j]);
}
}
}
else
{
printf("Vvod elementov avtomaticheski\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
a[i][j]=rand()%10;
}
}

}
printf("Matrica\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[i][j]);
}
printf("\n");
}

for(i=0;i<k;i++)
{
min=a[i][0];
max=a[i][0];
for(j=0;j<k;j++)
{
if(a[i][j]>max)
{
max=a[i][j];
}
else if(a[i][j]<min)
{
min=a[i][j];
}
}
a[i][0]=(min+max)/2;
}

printf("\nMatrica izmenenay po zadaniy 1\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[i][j]);
}
printf("\n");
}

for(i=1;i<k;i++)
{
for(j=0;j<=i;j++)
{

for(u=0;u<k;u++)
{
for(h=k-1;h>u;h--)
{
if (a[h-1][j]<a[h][j])
{
n=a[h-1][j];
a[h-1][j]=a[h][j];
a[h][j]=n;
}
}

}
}
}

printf("\nMatrica otsortirovanay po zadaniy 2\n");
for(i=0;i<k;i++)
{
for(j=0;j<k;j++)
{
printf("%d",a[i][j]);
}
printf("\n");
}

return 0;
}

Вы даже не представляете, насколько легче было бы Вам помочь, сформулируй Вы задание. А так...

Вложение 116991
а ну да... чёт совсем уже перестаю думатьtehno032...

осталось только отсортировать. (в поисковике можешь вбить сортировка пузырьком)

если мне не изменяет память то как-то так:

tcelobitnaja чувак ты меня просто от плахи спасаешь tehno039
tehno006 искренне благодарен tehno011 tehno016

Не за что =) Рад, что помог =)