Aleksandrovich-Mayatskikh
?>

ТУТ ОШИБКА НЕ МОГУ НАЙТИ . Вот в этой программе в последней строчке ошибка . Program Premier_liga_2; var B, Diff: array [1..16] of integer; Team: array[1..16] of string; I, K, X, Z, P: integer; St: string; begin writeln('Введите названия команд и полученные ими очки'); for I:=1 to 16 do begin write(I, ' Название: '); readln(Team[I]); write('Очки: '); readln(B[I]); write('Забитые мячи: '); readln(Z); write('Пропущенные мячи: '); readln(P); Diff[I]:= Z-P; end; for K:=1 to 15 do for I:=1 to 16-K do if (B[i] < B[I+1]) or ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then begin X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X; St:=Team[I]; Team[I]:=Team[I+1]; Team[I+1]:=St; end; for I:=1 to 16 do begin for K:=1 to 18-length(Team[I]) do Team[I]:=Team[I]+' '; writeln(I:2, ' ', Team[I]:18, B[I]:2) end; end.

Информатика

Ответы

snk7777202

А нет тут ошибок. В нормальном компиляторе все работает


ТУТ ОШИБКА НЕ МОГУ НАЙТИ . Вот в этой программе в последней строчке ошибка . Program Premier_liga_2
Hugokate77729

№1

#include <iostream>

#include <string.h>

using namespace std;

int main() {

setlocale(LC_ALL, "Rus");

char st[100];

char rm[10] = " РМ";

gets_s(st);

strcat_s(st, rm);

cout << st;

return 0;

}

№2

#include <iostream>

using namespace std;

int main() {

setlocale(LC_ALL, "Rus");

string st = "получены результаты контрольной работы";

cout << sizeof(st) << endl;

cout << st.find("результаты") << endl;

st.insert(st.find("результаты") + 10, " итоговой");

cout << st;

return 0;

}

Seropyan-Elena1944

mins = 9*99

maxs = -9*999

count = int(input())

if count < 2:

   print("Не может быть меньше двух")

else:

   for i in range(count):

       a = int(input())

       if a < mins:

           mins = a

       elif a > maxs:

           maxs = a

if count > 2:

   print(maxs)

   print(mins)

   

# такой же, но более памятозатратный.

# можно конечно оптимизировать, но для учебного варианта пойдёт

a = []

count = int(input())

if count < 2:

   print("Не может быть меньше двух")

else:

   for i in range(count):

       d = int(input())

       a.append(d)

if count > 2:

   print(max(a))

   print(min(a))

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

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

ТУТ ОШИБКА НЕ МОГУ НАЙТИ . Вот в этой программе в последней строчке ошибка . Program Premier_liga_2; var B, Diff: array [1..16] of integer; Team: array[1..16] of string; I, K, X, Z, P: integer; St: string; begin writeln('Введите названия команд и полученные ими очки'); for I:=1 to 16 do begin write(I, ' Название: '); readln(Team[I]); write('Очки: '); readln(B[I]); write('Забитые мячи: '); readln(Z); write('Пропущенные мячи: '); readln(P); Diff[I]:= Z-P; end; for K:=1 to 15 do for I:=1 to 16-K do if (B[i] < B[I+1]) or ((B[i] = B[I+1]) and (Diff[i] < Diff[I+1])) then begin X:=B[I]; B[I]:=B[I+1]; B[I+1]:=X; St:=Team[I]; Team[I]:=Team[I+1]; Team[I+1]:=St; end; for I:=1 to 16 do begin for K:=1 to 18-length(Team[I]) do Team[I]:=Team[I]+' '; writeln(I:2, ' ', Team[I]:18, B[I]:2) end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

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

sigidinv
akakne86
lazarevaavrora
Татьяна Гришаевич
mir5552
Ольга тимур
Банова_Елена431
Sergei248
julia3594265843
Васильева-Александрович
l250sp70
dshi67orbru
romolga3580
ddobrov32133
nekarpova