Собака зарыта в строчках
var a:array of integer
...
read(a[i][j])
Смысл в том, что a, похоже, объявлен как одномерный массив, а по твоей задумке он двумерный. Поставь там инициализацию двумерных массивов.
(В PascalABC.Net, если ты тоже в этой среде и этом диалекте, то там я ручаюсь, что там правильно <span>var a:array [,] of integer</span>. Хотя допускаю, что везде одинаково).
В начале программы надо написать Randomize;
вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.
вот часть программы
for i:=1 to 20 do begin
if M[i]>0 then k:=k+1;
if M[i]<0 then t:=t+1;
if M[i]=0 then n:=n+1;
end;
writeln(k,'Положительные');
writeln(t,'отрицательные');
writeln(n,'Нулевые');
Вот блок схема,покрасивее перерисуй xD Если не трудно,поставь ответ как лучший,хочу статус новый получить,спасибо за понимание))
// #includes {{{
#include <stdio.h>#include <iostream>#include <cmath>#include <algorithm>#include <fstream>#include <vector>#include <complex>#include <queue>#include <set>#include <map>#include <cstdlib>#include <cstdio>#include <cstring>#include <cassert>#include <ctime>#include <cmath>#include <string>#include <deque>#include <list>#include <math.h>#include <fstream>#include <stack>#include <iomanip>#include <bitset>#include <memory.h>#include <bitset>#include <functional>#include <numeric>#include <utility>#include <sstream>#include <ctime>#include <assert.h>#include <stdarg.h>#include <time.h>#include <limits.h>#include <ctype.h>#include <complex>#include <bits/stdc++.h>// }}} // #defines {{{#define exp 1e-10#define sc scanf#define pr printf#define mk make_pair#define pb push_back#define pf push_front#define ll long long#define fi first#define se second#define eps 0.000000001#define INF 1000000007#define file "management"#define eps 0.000000001#define cmd 1000000009#define PI 3.14159265#define MOD 1000000007#define sz(x) ((int)(x).size())#define in(s) freopen(s, "r", stdin);#define pi 3.1415926535897#define rep(i, n) for(__typeof(n) i = 0; i < (n); i++)#define out(s) freopen(s, "w", stdout);#define sync ios_base::sync_with_stdio( 0 )// }}} <span>using namespace std;</span> <span>typedef long long lglg;</span><span>const int inf = 1<<30, maxN = 1000;</span><span>int ax[] = {0, 1, -1, 0, 0};</span><span>int ay[] = {0, 0, 0, -1, 1};</span> <span>int main()</span>{<span> string a;</span><span> int n, dp[102][102], i, j, px[102][102], py[102][102];</span><span> cin >> a;</span><span> memset(dp, 0, sizeof(dp));</span><span> memset(px, -1, sizeof(px));</span><span> a = "." + a;</span><span> n = a.size() - 1;</span><span> for (i = 1; i <= n; i++)</span><span> dp[i][i] = 1;</span><span> for (i = n; i >= 1; i--)</span><span> for (j = i + 1; j <= n; j++)</span><span> {</span><span> if (a[i] == a[j] && dp[i][j] < 2 + dp[i + 1][j - 1])</span><span> {</span><span> dp[i][j] = 2 + dp[i + 1][j - 1];</span><span> px[i][j] = i + 1;</span><span> py[i][j] = j - 1;</span><span> }</span><span> if (dp[i][j] < dp[i + 1][j])</span><span> {</span><span> dp[i][j] = dp[i + 1][j];</span><span> px[i][j] = i + 1;</span><span> py[i][j] = j;</span><span> }</span><span> if (dp[i][j] < dp[i][j - 1])</span><span> {</span><span> dp[i][j] = dp[i][j - 1];</span><span> px[i][j] = i;</span><span> py[i][j] = j - 1;</span><span> }</span> <span> }</span><span> cout << dp[1][n] <<<span>'\n'</span>;</span><span> int x = 1, y = n, q, w;</span><span> vector<char> ans;</span><span> char z = 0;</span><span> while (px[x][y] != -1)</span><span> {</span><span> if (px[x][y] == x + 1 && py[x][y] == y - 1)</span><span> ans.push_back(a[x]);</span><span> q = px[x][y];</span><span> w = py[x][y];</span><span> x = q;</span><span> y = w;</span><span> }</span><span> if (x == y)</span><span> z = a[x];</span><span> for (i = 0; i< ans.size(); i++)</span><span> cout << ans[i];</span><span> if (z != 0)</span><span> cout<< z;</span><span> for (i = ans.size() - 1; i >= 0; i--)</span><span> cout<< ans[i];</span><span> return 0;</span> } <span> </span>
