Вячейке а1 находится число 1, в ячейке в1 – число 2, в ячейке а2 число 3 в ячейке в2 число 4 в ячейке d1 записана формула срзнач(а1: в2).какое значение примет функция в результате расчета?
Borland Pascal 7.01 uses Crt; const nn=20; mm=20; var i,j,k,n,m:integer; c1,c2:string; c:array[1..mm,1..nn] of integer; a:array[1..mm*nn] of string[9]; begin ClrScr; { Инициализация } Randomize; Write('Введите количество строк и столбцов массива: '); Read(m,n); Writeln('*** Исходный массив ***'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=Random(51)-25; Write(c[i,j]:4) end; Writeln end; { Формирование одномерного массива } k:=0; for i:=1 to m do begin for j:=1 to n do if c[i,j]>0 then begin Inc(k); Str(i,c1); Str(j,c2); a[k]:='['+c1+','+c2+']' end; a[k]:=a[k]+#13+#10 end; { Вывод результатов } Writeln('*** Компоненты массива с положительными членами ***'); for i:=1 to k do if a[i][Length(a[i])]=#10 then Write(a[i]) else Write(a[i],' '); Writeln; Readkey end.
