схемы в турбо паскале

[tanyalove]

1.Ввести номер дня недели и вывести на печать соответствующий ему день недели на русском языке.

2.Даны два целочисленных массива А(10) и В(8). Если среднее арифметическое массива А равно минимальному значению массива В, то увеличить каждый элемент массива В на 15. В противном случае заменить все положительные элементы массива А на 1. Распечатать измененные массивы, значения минимума и среднего арифметического.

3.Если количество нулей в массиве А(10) вещественных чисел равно количеству единиц в массиве С(10) целых чисел, то определить и распечатать максимальное значение каждого массива. В противном случае отсортировать массив С по возрастанию и распечатать. Распечатать полученные значения количеств нулей и единиц.

4.Дана матрица целых чисел Аik. Сформировать из максимальных элементов столбцов матрицы вектор Вk.

5.Найти наименьший элемент матрицы X(5,7)и записать 0 в ту строку и столбец, где он находился .

[ROMA2PVT]

-II-

uses
   crt;
Const
n=10;
m=8;
var
  a,b:array[1..100] of integer;
  i,sum,imin:integer;
  sr:real;
begin
imin:=1;
sum:=0;
randomize;
writeln('Массив A: ');
for i:=1 to n do
begin
a[i]:=random(30)-20;
write(a[i],' ');
sum:=sum+a[i];
begin
sr:=sum/n;
end;
end;
writeln;
writeln('Среднее арифметическое значение:=',sr);
writeln;
writeln('Массив B: ');
for i:=1 to m do
begin
b[i]:=random(10)-5;
write(b[i],' ');
  if (b[i]<b[imin]) then
  begin
  imin:=i;
  end;
end;
writeln;
writeln('MIN[',imin,']:=',b[imin]);
if sr=b[imin] then
begin
for i:=1 to m do
begin
b[i]:=b[i]+15;
end;
writeln('Изменённый массив B: ');
for i:=1 to m do
begin
write(b[i],' ');
end;
end
else
begin
for i:=1 to n do
if a[i]>0 then
begin
a[i]:=1;
end;
writeln;
writeln('Изменённый массив A: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
end;
writeln;
end.

-IV-

uses crt;
var
  a:array[1..20,1..20]of integer;
  b:array[1..20] of integer;
  i,j,imin,n,m,kol:integer;

begin
 clrscr;
 randomize;
 write('Введите количество строк: ');
 readln(n);
 write('Введите количество столбцов: ');
 readln(m);
 writeln('Исходная матрица');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
  end;
  writeln;
 end;
   kol:=0;
 for j:=1 to m do
 begin
  imin:=1;
  for i:=1 to n do
  if a[i,j]>a[imin,j] then
  imin:=i;
  writeln('MAX элемент ',j,'-го столбца:=A[',imin,',',j,']:= ',a[imin,j]);
  inc(kol);
  b[kol]:=a[imin,j];
 end;
 writeln;
 writeln('Вектор B: ');
 for i:=1 to kol do
 begin
 write(b[i],' ');
 end;
  readln;
end.

-V-
uses

   crt;
var
  a:array[1..20,1..20]of integer;
  i,j,imax,jmax,n,m:integer;
begin
 clrscr;
 imax:=1;
 jmax:=1;
 randomize;
 write('Введите количество строк: ');
 readln(n);
 write('Введите количество столбцов: ');
 readln(m);
 writeln('Исходная матрица: ');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
    a[i,j]:=random(10)-5;
    write(a[i,j]:3);
    if a[i,j]>a[imax,jmax] then
  begin
  imax:=i;
  jmax:=j;
  end;
  end;
  writeln;
 end;
 writeln;
 writeln('MAX[',imax,';',jmax,']:=',a[imax,jmax]);
 writeln;
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
  if a[i,j]=a[imax,jmax] then
  a[i,j]:=0;
  end;
  end;
  writeln;
  writeln('Результирующая матрица: ');
 for i:=1 to n do
 begin
  for j:=1 to m do
  begin
    write(a[i,j]:3);
    end;
    writeln;
    end;
    writeln;
 end.

-I-

var
dn:integer;
begin
repeat
write('Введите день недели от 1  до 7: ');
readln(dn);
until dn<=7;
case dn of
1: writeln('понедельник');
2: writeln('вторник');
3: writeln('среда');
4: writeln('четверг');
5: writeln('пятница');
6: writeln('суббота');
7: writeln('воскресенье');
end;
end.

Проверяй на работоспособность.Т.к.пишу в паскаль ABC.
Приду сделаю блок схемы если так прям нужно.

[tanyalove]

очень очень нужно, и да спасибо огромное

[ROMA2PVT]

После начала вставляй блок описания переменных(VAR).И будет тебе счастье.

[ROMA2PVT]

uses
   crt;
Const
n=10;
m=10;
Type
mas=array[1..100] of integer;
var
  a:mas;
  c:mas;
  i,kol,j,kol2:integer;
  imax:integer;
  max,tmp:integer;
  
  Procedure MaxEl(Var k:mas; l:integer);
Begin
imax:=1;
Max:=k[1];
for i:=1 to l do
  if k[i]>k[imax] then
  begin
  max:=k[i];
  imax:=i;
  end;
writeln;
writeln('MAX[',imax,']:=',max);
end;

begin
kol2:=0;
kol:=0;
randomize;
writeln('Массив A: ');
for i:=1 to n do
begin
a[i]:=random(10)-2;
write(a[i],' ');
if a[i]=0 then
begin
inc(kol);
end;
end;
writeln;
writeln('Количество нулей массива A:=',kol);
writeln;
writeln('Массив C: ');
for i:=1 to m do
begin
c[i]:=random(10)-2;
write(c[i],' ');
  if  (c[i]=1) or (c[i]=-1) then
  begin
  inc(kol2);
  end;
end;
writeln;
writeln('Количество единиц массива C:=',kol2);
if kol=kol2 then
begin
MaxEl(a,n);
MaxEl(c,m);
end
else if kol<>kol2 then
begin
for i:=1 to m do
        for j:=1 to m-i do
            if c[j]>c[j+1] then
            begin
                Tmp:=c[j];
                c[j]:=c[j+1];
                c[j+1]:=Tmp;
            end;
            writeln;
            writeln('Изменённый массив C: ');
for i:=1 to m do
begin
write(c[i],' ');
end;
end;
writeln;
end.

Ну и вот те -III- в подарок

[ROMA2PVT]

Вот блок-схема.Подпрограмма и основная программа.И в проге самой сделайте вещественный массив.Может хоть чему то научитесь.