Вот пример правильной трассировочной таблицы. Впредь делайте именно так.
Из таблицы видно, что в момент завершения программы переменная с будет иметь значение 2.
Ответ:
12
Объяснение:
Можно представить что данный диапазон это прямоугольник, в котором верняя грань равна 3 ячейкам - столбцы A B C, а боковая грань равна 4 ячейкам, т.к. состоит из строк 2 3 4 5
Общее количество ячеек:4*3=12
При X меньшем или равном(<=) 90
Program Massiv;
Const n = 5;
Var a: Array [1..n] of Integer;
tmp, c, i: Integer;
Begin
WriteLn('Введите ', n, ' чисел через пробел');
For i := 1 To n Do
Read(a[i]);
c := 1;
For i := 1 To n Do
If a[i] = 0 Then
Begin
tmp := a[c];
a[c] := a[i];
a[i] := tmp;
c := c + 1;
End;
WriteLn('Результат:');
For i := 1 To n Do
Write(a[i], ' ');
ReadLn;
<span>End. </span>
Вот так вот 22112. Попробуй сам(а) делать, начиная от обратного т. е. делать из 152 2 и тд