В яких операторах допущені помилки? А) If a mod 2 =0 Then a := a div 2 Else a := a*2; Б) Case Х mod 2; 0 : ShowMessage ('Парне'); 1 : ShowMessage ('Непарне'); end; В) If a>5 Then a := True; Г) If a>5 Then a := 0; Else a := 10;
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Rows.Select((x,r)->(x.Where(q->q<0).Count,r)); foreach var x in b do Write(x[1]+1,')',x[0],' ') end.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица [',m,',',m,'] ***'); var a:=MatrRandom(m,m,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var s:=0; for var i:=0 to m-1 do s:=s+a[i,i]; Writeln('Ср.арифметическое равно ',s/m) end.
№1 var m,n,i,j,col:integer; ar:array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i:=1 to m do begin write(i,': '); for j:=1 to n do begin read(ar[i,j]) end; end; for i:=1 to m do begin for j:=1 to n do begin if (ar[i,j]<0) then col:=col+1; end; writeln(i,': ',col); col:=0; end; end.
№2 var m,n,i,j,sum,col:integer; ar:array[1..100,1..100] of integer; begin write('строки : '); read(m); write('столбцы : '); read(n); for i:=1 to m do begin write(i,': '); for j:=1 to n do begin read(ar[i,j]) end; sum:=0; end; for i:=1 to m do begin for j:=1 to n do begin if (i=j) then begin col:=col+1; sum:=sum+ar[i,j]; end; end; end; writeln(sum/col); end.
Відповідь:
Б
Пояснення: