主页 / user-385301

zacc's questions

Martin Hope
zacc
Asked: 2020-06-08 00:42:42 +0000 UTC
  • 0
program programa;

var
  a: array[0..50, 0..50] of integer;
  i, j, n, m, min: integer;

begin
  writeln('Программа для определения индексов минимального элемента заданного массива');
  Randomize;
  write('Введите количество строк ');
  readln(n);
  write('Введите количество столбов ');
  readln(m);
  for i := 1 to n do
  begin
    writeln;
    for j := 1 to m do
    begin
      a[i, j] := random(51);
      write(a[i, j]: 5);
    end;
  end;
  writeln;
  min := a[1, 1];
  for i := 1 to m do
    for j := 1 to n do
      if a[i, j] < min then
        min := a[i, j];
  writeln('минимальный элемент массива =', min);
end.
массивы
Martin Hope
zacc
Asked: 2020-05-25 09:00:56 +0000 UTC
  • 0
```
program programb;
var
mas: array [1..100] of integer;
i,j,r,a,b,c,d,e,f,h,k,l,m,N: integer;
begin
write('Введите размерность массива',' ');
  readln(N);
Write('Введите 1 элемент массива',' ');
  Readln(a);
Write('Введите 2 элемент массива',' '); 
  Readln(b);
Write('Введите 3 элемент массива',' '); 
  Readln(c);
Write('Введите 4 элемент массива',' ');
  Readln(d);
Write('Введите 5 элемент массива',' '); 
  Readln(e);
Write('Введите 6 элемент массива',' ');
  Readln(f);
Write('Введите 7 элемент массива',' ');
  Readln(h);
Write('Введите 8 элемент массива', ' ');
  Readln(k);
Write('Введите 9 элемент массива',' ');
  Readln(l);
Write('Введите 10 элемент массива',' '); 
Readln(m);

 mas[1]:=a;
 mas[2]:=b;
 mas[3]:=c;
 mas[4]:=d;
 mas[5]:=e;
 mas[6]:=f;
 mas[7]:=h;
 mas[8]:=k;
 mas[9]:=l;
 mas[10]:=m;
  for i:=1 to N-1 do 
    for j:= 1 to N-i do 
      if (mas[j]>mas[j+1] ) then
        begin 
          r := mas[j];    
          mas[j] :=mas[j+1];
          mas[j+1] :=r;
          end;
          for i:=1 to 10 do
            write(mas[i],' ');
end.      
```
[окно вывода][1]
массивы
Martin Hope
zacc
Asked: 2020-05-07 09:32:42 +0000 UTC
  • -1
```   
program program2;
var a,b,c: integer;
begin
WriteLn('Программа для нахождения всех делителей чисел');
WriteLn('Введите от какого числа');
Readln(a);
WriteLn('Введите до какого числа');
REadln(b); 
while a<=b do begin
write (a,':');
for c := 2 to a-1 do begin
If a mod c = 0 then 
Write(c,' ');
end;
Writeln;
a := a+1;
end;
end.     
```

框图

pascal