Const c:array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6);
var b,d:array [1..10] of integer;
p,k,max,i,j,tmp:integer;
begin
p:=1;
for i:=1 to 10 do
if c[i] > 0 then p:=p*c[i];
k:=0;
for i:=1 to 10 do
if c[i] < 0 then inc(k);
d:=c;
max:=d[1];
for i:=2 to 10 do
if c[i] > max then max:=c[i];
writeln ('Max: ',max);
writeln ('Kol-vo otriz. elementov: ',k);
writeln ('Proizvedenie: ',p);
for i:=1 to 10 do
if c[i] >= 0 then b[i]:=c[i]+10 else
if c[i] < 0 then b[i]:=c[i]*c[i];
writeln ('New massiv: ');
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if d[j] > d[i] then
begin
tmp:=d[j];
d[j]:=d[i];
d[i]:=tmp;
end;
for i:=1 to 10 do write (d[i],' ');
writeln;
end.
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
int main()
{
int i,j,n,sum,a[30][30];
printf("n=");
srand(time(NULL));
scanf("%d",&n);
printf("Matrix:\n");
sum = 0;
for (i = 1; i <= n; i++)
{
for (j = 1; j<=n; j++)
{
a[i][j]=1+rand()%9;
printf("%d ",a[i][j]);
}
printf("\n");
}
printf("\n");
for (i=2;i<=n-1;i++)
{
for(j=1;j<=2*i-1;j++)
if(i!=j)
sum+=a[i*2-j][j];
a[i][i]=sum;
sum=0;
}
printf("Output matrix:\n");
for (i = 1; i <= n; i++)
{
for (j = 1; j <= n; j++)
printf("%d ", a[i][j]);
printf("\n");
}
return 0;
}
Выбирай точка с запятой, например:
echo "Hello World";
Program TxtManipula;
uses crt;
var txt:string;
begin Writeln('Введите строку');
Readln(txt);
Writeln('Длина строки:',length(txt));
Insert('о',txt,2);
Writeln(txt);
Delete (txt.length(txt),1);
Writeln(txt);
Readln();
<span>end.
PS: скомпилированный файл TxtManipula.exe в архиве, это вставленный документ ворд. Просто поменяй расширение docx на zip.</span>