Размещено 5 лет назад по предмету Информатика от sidrenko1231

Прошу помочь, в pascal...

Ответ на вопрос

Ответ на вопрос дан raf1O5

1.
program raf105;
const
n = 10;
var
c: array[1..n,1..n] of integer;
i,j,sum: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
c[i,j]:= random(-9,9);
write(c[i,j]:2,' ')
end;
end;
writeln;
writeln;
for j:=1 to n do
if j mod 2 = 0
then begin
for i:=1 to n do
sum:= sum+c[i,j];
writeln('Сумма элементов ',j:2,' столбца: ',sum:3);
sum:= 0;
end;
end.
2.
program raf105;
const
n = 10;
i2 = 5;
var
c: array[1..n,1..n] of integer;
i,j,min: integer;
x: boolean;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
c[i,j]:= random(-9,9);
write(c[i,j]:2,' ')
end;
end;
writeln;
for j:=1 to n do
if c[i2,j] < 0
then begin
min:= c[i2,j];
x:= True;
break
end;
if x then begin
for j:=2 to n do
if c[i2,j] < min
then min:= c[i2,j];
c[i2,1]:= min;
writeln;
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(c[i,j]:2,' ')
end;
end
else writeln('В 5 строке отрицательных элементов не найдено.');
end.
3.
program raf105;
const
n = 10;
var
c: array[1..n,1..n] of integer;
i,j,pro: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
c[i,j]:= random(-9,9);
write(c[i,j]:2,' ')
end;
end;
writeln;
writeln;
pro:= 1;
for i:=1 to n do
pro:= pro * (c[i,n-(i-1)]);
writeln('Произведение побочной диагонали: ',pro);
end.
4.
program raf105;
const
n = 10;
var
c: array[1..n,1..n] of integer;
i,j,sum,kol: integer;
sari: real;
x: boolean;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
c[i,j]:= random(-9,9);
write(c[i,j]:2,' ')
end;
end;
writeln;
writeln;
for i:=1 to n do
begin
for j:=1 to n do
if c[i,j] < 0
then begin
if not(x)
then x:= True;
sum:= sum + c[i,j];
kol:= kol + 1;
end;
end;
if x
then begin
sari:= sum/kol;
writeln('Среднее арифметическое отрицательных элементов: ',sari:0:2);
end
else writeln('Отрицательных элементов не найдено');
end.
5.
program raf105;
const
n = 10;
j2 = 2;
var
c: array[1..n,1..n] of integer;
maxj2,maxs: array[1..n] of integer;
i,j,l,ll,max,maxpos: integer;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
c[i,j]:= random(-9,9);
write(c[i,j]:2,' ')
end;
end;
writeln;
writeln;
for i:=1 to n do // Начало 1 Заполнения массива второго столбца
maxj2[i]:= c[i,j2]; // Конец 1
for i:=1 to n do // Начало 2 Сортировка массива 2 столб. по возрастанию
begin
max:= maxj2[i];
maxpos:=i;
for j:=i to n do
if maxj2[j] > max
then begin
max:= maxj2[j];
maxpos:= j;
end;
maxj2[maxpos]:= maxj2[i];
maxj2[i]:= max;
end; // Конец 2
maxpos:= 0;
for l:=1 to n do // Начало 3 сортировка матрицы по возрастанию 2 столб.
begin
maxpos:= l;
for i:=l to n do
if maxj2[l] = c[i,j2]
then begin
maxpos:= i;
end;
for j:=1 to n do
begin
maxs[j]:= c[maxpos,j];
c[maxpos,j]:= c[l,j];
c[l,j]:= maxs[j];
end;
end; // Конец 3
writeln('Вывод:');
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(c[i,j]:2,' ')
end;
end.
6.
program raf105;
var
a,x,pro: integer;
begin
write('Введите число: ');
readln(a);
pro:= 1;
while a <> 0 do
begin
x:= a mod 10;
pro:= pro*x;
a:= a div 10;
end;
writeln('Произведение цифр: ',pro);
end.
7.
program raf105;
uses
crt;
const
glas = 'уюеэыиаяоё';
var
s: string;
i: integer;
n: char;
x: boolean;
begin
writeln('Вводите текст, чтобы закончить поставьте точку');
n:= readkey;
write(n);
repeat
x:= True;
for i:=1 to length(glas) do
if ((n = glas[i]) or (n = uppercase(glas[i]))) and x
then x:= False;
if x
then s:= s+n;
n:= readkey;
write(n);
until n = '.';
writeln;
writeln(s);
end.

PascalABC 3.4.2
1. Ответ на вопрос
  
  Ответ на вопрос дан sidrenko1231
  
  СПАСИБО ОГРОМНОЕ!!!!!!!!!!!!!!!!!!!!!!!!!!!!