Определите, что будет напечатано в результате выполнения следующего алгоритма: var s, k: integer; begin s: = 100 k: =7 repeat s: = s-k k: =k+1 until k> 10 writeln( s+k) end. объясните как вывести отсюда результат

Вставь данное условие в программу abc pascal. программа выдаст ответ 77.у тебя в условии есть ошибки. var s,k: integer;   begin   s: = 100; k: =7; repeat  s: = s-k; k: =k+1 until k> 10; writeln( s+k) end.  вот правильное условие.

#include < iostream> #include < conio.h> using namespace std; int main() {   cout < < "enter size of array : "; int size; cin > > size; cout < < endl; int *arr = new int[size]; for (int i = 0; i < size; i++)   {   cin > > arr[i];   }   cout < < "" < < endl; int largest(arr[0]), largest_index; for (int i = 0; i < size; i++)   {   if (largest < arr[i])   largest = arr[i]; } for (int i = 0; i < size; i++) {   if (arr[i] == largest)     largest_index = i; } int middle(arr[0]), middle_index; for (int i = 0; i < size; i++)   {   if (i ! = largest_index)    { if (middle < arr[i])     middle = arr[i];   }   } for (int i = 0; i < size; i++)   {   if (arr[i] == middle)   middle_index = i; }   for (int i = 0; i < size; i++) {   if (i < largest_index & & i > middle_index)   arr[i] = 0;     }   cout < < "" < < endl; for (int i = 0; i < size; i++)   cout < < arr[i] < < endl;   _getch(); return 0;

#include < iostream> using namespace std; int main() { int s, i; cout < < "s = "; cin > > s; double a[s], m1, m2; int m1i, m2i, f, t; /* заполнение */ for (i = 0; i < s; i++) { cout < < i < < ': '; cin > > a[i]; } /* первый максимум */ m1i = 0; m1 = a[m1i]; for (i = 1; i < s; i++) { if (a[i] > m1) { m1 = a[i]; m1i = i; } } /* второй максимум */ m2i = 0; m2 = a[m2i]; for (i = 1; i < s; i++) { if (i == m1i) continue; if (a[i] > m2) { m2 = a[i]; m2i = i; } } /* порядок итерации */ if (m1 > m2) { f = m2i; t = m1i; } else { f = m1i; t = m2i; } for (i = f + 1; i < t; i++) { a[i] = 0; } for (i = 0; i < s; i++) { cout < < a[i] < < ' '; } return 0; }