Игоревна Худанов1150
?>

Отредактировать заданный текст, удалив из него все символы, не являющиеся идентификаторами, и расположив слова по два в строкеPascal)

Информатика

Ответы

sancity997124
Const n = 15;
var a: array[1..n] of integer;
  i, j, m: integer;
begin
  // генерация и вывод
  randomize;
  for i := 1 to n do a[i] := Random(19)-8;
  for i := 1 to n do write(a[i], ' ');
  writeln;
  
  // Сортировка
  for i := 1 to n-1 do begin
    m := i;
    for j := i+1 to n do
      if a[j] < a[m] then m := j;
      
    if m <> i then begin
      j := a[m];
      a[m] := a[i];
      a[i] := j;
    end;
  end;
  for i := 1 to n do write(a[i], ' ');
  writeln;
  
  // поиск наибольшей разности
  m := a[2] - a[1];
  for i := 3 to n do
    if a[i] - a[i-1] > m then 
      m := a[i] - a[i-1];
  writeln ('разность = ', m);
end.
ooost-2022
Uses crt;
var a,b:array[1..100] of integer; i,j,k,n:integer;
procedure rmassr;
begin
    for i:=1 to n do begin
        a[i]:=random(10);
    end;
end;
procedure rmassy;
begin
    for i:=1 to n do begin
        readln(a[i]);
    end;
end;
procedure rmass();
begin
    for i:=1 to n do begin
        write(a[i],' ');
    end;
end;
procedure newmass;
begin
    for i:=1 to n do begin
        if a[i] > 0 then b[i]:=a[i];
    end;
    for i:=1 to n do begin
        j:=j+b[i];
    end;
    writeln('summa = ',j);
end;
begin
clrscr;
randomize;
write('длина массива '); readln(n);
write('1-random; 2-в ручную'); readln(k);
if k = 1 then
    rmassr()
else rmassy();
rmass();
writeln();
newmass();
readln
end.

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

Поделитесь своими знаниями, ответьте на вопрос:

Отредактировать заданный текст, удалив из него все символы, не являющиеся идентификаторами, и расположив слова по два в строкеPascal)
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Irina_Chernyaev532
kuznecovav3066
Koranna1986
Araevich
bessalaias
Elen-Fler
pronikov90
andreyshulgin835
Vyacheslavovna240
Картузов-Алексей1252
laktionova-natal
iskypka
Pashinov
kseniyavaganova
chechina6646