10 задач, массивы и арифметика

[fi4a]

Паскаль. Массивы. Алгебраические функции.
Не могу создать отдельную тему.
Просьба решить 10 задач по Паскалю: первые 3 - функции, остальные -массивы. Задачи в файле ворда, нельзя прикрепить, но там формулы, а их тоже выкинуть нельзя. Вот ссылка: dump.ru/file/2059161.

4) Найти сумму положительных элементов массива АС, содержащего N элементов, N меньше или равно 20
5) Определить наименьший элемент массива ВР и поменять его с последним элементом, кол-во элементов меньше или равно 20
10) Найти по каждому столбцу матрицы GJ (m, m) минимальный элемент и поменять его местами с элементом главной диагонали соответствующего столбца. m=5, n=6

[Naeel Maqsudov]

Запакуйте документ в ZIP и прикрепите.

[fi4a]

у меня внизу написано, что я не могу прикреплять файлы: права не позволяют.

[Naeel Maqsudov]

В расширенном режиме в зависимости от типа редактора установленного в профиле будет либо скрепка, либо кнопка "Управление вложениями"

[dr.Jekill]

4 задача:

Код: Выделить всё

sum:=0;
repeat
clrscr;
write('Zadaite kol-vo elementov: ');
readln(n);
until n<=20;
for i:=1 to n do
 begin
  write('Vvedite element ',i,' : ');
  readln(AC[i]);
  if AC[i]>0 then sum:=sum+AC[i];
 end; 

[dr.Jekill]

5 задача:

Код: Выделить всё

uses crt;
var i,j,n,min:integer;
BP:array[1..20] of integer;
vyb:char;
begin
repeat
clrscr;
write('Zadaite kol-vo elementov: ');
readln(n);
until n<=20;
write('Vvedite element 1 : ');
readln(BP[1]);
min:=BP[1];
for i:=2 to n do
 begin
  write('Vvedite element ',i,' : ');
  readln(BP[i]);
  if BP[i]<min then 
    begin
     min:=BP[i];
     j:=i;
    end;
 end;
clrscr;
writeln('Poslednii element: ',BP[n]);
writeln('Minimalnyi element: ',min);
writeln;
write('Proizvesti zamenu? [y/n] ');
readln(vyb);
if (vyb='y') or (vyb='Y') then
 begin
  BP[j]:=BP[n];
  BP[n]:=min;
  writeln('Zamena proizvedena!');
 end;
readln;
end.

[dr.Jekill]

10 задача:
Можете добавить отзыв.

Код: Выделить всё

uses crt;
var GJ:array[1..5,1..6] of integer;
m,n,min,buf,nom:integer;
begin
for m:=1 to 5 do
 begin
  clrscr;
  writeln('Stroka ',m);
  n:=0;
  repeat
   n:=n+1;
   write('Vedite element ',n,' : ');
   readln(GJ[m,n]);
  until n=6;
 end;
clrscr;
writeln('Ishodnaia matrica:');
for m:=1 to 5 do
 begin
  writeln;
  n:=0;
  repeat
   n:=n+1;
   write(GJ[m,n],' ');
  until n=6;
 end;
readln;
for m:=1 to 5 do
 begin
  n:=0;
  repeat
   n:=n+1;
   min:=GJ[m,1];
   if GJ[m,n]<min then
    begin
     min:=GJ[m,n];
     nom:=n;
    end;
   if n=6 then
    begin
     buf:=GJ[m,m];
     GJ[m,m]:=min;
     GJ[m,nom]:=buf;
    end;
  until n=6;
 end;
clrscr;
writeln('Izmenennaia matrica:');
for m:=1 to 5 do
 begin
  writeln;
  n:=0;
  repeat
   n:=n+1;
   write(GJ[m,n],' ');
  until n=6;
 end;
readln;
end.

[fi4a]

dr.Jekill, огромное спасибо! Сегодня появилась возможность прикреплять файлы: прикрепляю те 10 задач, 3 из которых уже решено. буду очень благодарен, если рассмотрите и эти задачи!

[dr.Jekill]

Перекомпиллировал 10 задачу, - полный пэ. Выкладываю исправленный вариант:

Код: Выделить всё

uses crt;
var GJ:array[1..5,1..6] of integer;
m,n,min,buf,nom:integer;
begin
for n:=1 to 6 do
 begin
  clrscr;
  writeln('Stolbec # ',n);
  m:=0;
  repeat
   m:=m+1;
   write('Stroka ',m,' -> ');
   readln(GJ[m,n]);
  until m=5;
 end;
clrscr;
write('Ishodnaia matrica:');
for m:=1 to 5 do
 begin
  writeln;
  n:=0;
  repeat
   n:=n+1;
   write(GJ[m,n]:5);
  until n=6;
 end;
readln;
for n:=1 to 6 do
 begin
  m:=0;
  min:=GJ[1,n];
  repeat
   m:=m+1;
   if GJ[m,n]<=min then
    begin
     nom:=m;
     min:=GJ[m,n];
    end;
  until m=5;
  write(min:5);
  if n<6 then
   begin
    buf:=GJ[n,n];
    GJ[n,n]:=min;
    GJ[nom,n]:=buf;
   end;
 end;
writeln;
write('Izmenennaia matrica:');
for m:=1 to 5 do
 begin
  writeln;
  n:=0;
  repeat
   n:=n+1;
   write(GJ[m,n]:5);
  until n=6;
 end;
readln;
end.

[fi4a]

а в прикреплённом файле никто не смотрел задачи?