const
n = 5;
var
i, j, k: integer;
a: array[1..n] of integer;
p: boolean;
begin
randomize;
for i := 1 to n do
repeat
k := random(90) + 1;
j := 1;
p := True;
while p and (j < i) do
if a[j] = k then
p := False
else
j := j + 1;
if p then
a[i] := k;
until p = True;
for i := 1 to n do
write(a[i], ' ');
end.
#include <iostream>
<span>#include <cstdlib>
</span><span>#include <iomanip>
</span><span>using namespace std;
</span>int const n=6;
<span>int const m=6;
</span>int main() {
<span> int a[n][m];
</span><span> int sm;
</span><span>// установка генератора случайных чисел
</span><span> srand(time(NULL));
</span><span>// генерация массива и вывод на экран
</span><span> for (int i=0; i<n; i++) {
</span> <span>for (int j=0; j<m; j++) {
</span> <span>a[i][j]=rand()%50-20;
</span><span> cout<<setw(7)<<a[i][j];
</span><span> }
</span><span> cout<<endl;
</span><span> }
</span><span>// обработка массива
</span><span> for (int i=0; i<m; i++) {
</span><span> sm=0;
</span><span> for (int j=0; j<n; j++) sm+=a[j][i];
</span><span> for (int j=0; j<n; j++)
</span><span> if (2*a[j][i]>sm) cout<<j+1<<" "<<i+1<<endl;
</span><span> }
</span><span> system("pause");
</span><span> return 0;
}</span>
-16 -2 15 4 7 3
<span> -13 16 3 16 -13 3
</span><span> 0 19 20 6 20 -18
</span><span> -19 7 1 10 -11 25
</span><span> 5 4 3 21 28 -13
</span><span> 26 -19 -7 12 -20 11
</span><span>1 1
</span><span>2 1
</span><span>3 1
</span><span>5 1
</span><span>6 1
</span><span>3 5
</span><span>5 5
</span><span>4 6
</span>
После ввода имени файла и текста необходимо два раза гадать Энтони - тогда программа остановится.
Автора напиши я так не могу мне надо видеть тетрадь не на фото.