1. дан двумерный массив a, размером (n´m переставить третью и пятую строки.

Program chik; var c: array[1..1000,1..1000]of longint; n,m,i,j,p: longint; begin read(n,m); for i: =1 to n do beginf or j: =1 to m do begin read(c[i,j]); end; end; for j: =1 to m do begin p: =c[3,j]; c[3,j]: =c[5,j]; c[5,j]: =p; end; for i: =1 to n do begin for j: =1 to m do begin write(c[i,j]: 3,' '); end; writeln; end; end.

Уменя так получилось: program rent; type arr = array of integer; var i, n, p, x, k1, k2, k3 : integer; a : arr; correct : boolean; begin write('введите количество предприятий: '); readln(n); if n> 500 then n: =500; setlength(a, n); writeln('введите доходность каждого предприятия'); for i: =0 to n-1 do begin correct : = true; repeat readln(p); if abs(p)> 10000 then begin writeln('доход введён неправильно. повторите ещё раз'); correct : = false; end else correct : = true; until correct; a[i] : = p; end; k1: =0; k2: =0; k3: =0; x: =0; for i: =0 to n-1 do begin if a[i]> 0 then k1 : = k1+1; if a[i]< 0 then k2 : = k2+1; if a[i]=0 then k3 : = k3+1; x : = x+a[i]; end; writeln('доходных: ', k1, ', убыточных: ', k2, ', с нулевым доходом: ', k3); writeln('общий доход города: ', x); end.

Скорее всего, нет

Объяснение:

Это минимальные системные требования для игры

1) Эта игра тянет только на операционной системе Windows, а у тебя DOS

2) Нужен процессор Intel Core 2 Duo 1,8 ГГц хотя бы,

а у тебя 1,0 ГГц

3) Память: 4 Гб, тут подходит, у тебя 4 гб

4) Должно быть не менее 15 Гб свободного пространства на жестком диске, и 1 гб дополнительного пространства, у тебя много памяти на жестком диске, поэтому тут подходит

5) Нормальные видеокарты для поддерживания игры: NVIDIA GeForce 6600, ATI Radeon X1300

У тебя Intel HD Graphics 620, это не соответствует требованиям

6) Дисковод должен быть с приводом DVD-ROM, а т.к. у тебя его нет, поэтому установить не получится

Ну и всё)

К, сожалению, твой пк не потянет эту игру,поэтому займись приобретением нового пк