Придумайте и впишите пропущенные названия множеств. -множество жилых домов - -множество жилых домов - -множество жилых домов - -множество жилых домов -
Program a4; var x, kl, k2: integer; begin kl := 0; k2 := 0; x:=1; while x<>0 do begin writeln ('Введите целое число'); readln (x); if x<0 then kl := kl + 1; if x<0 then k2 := k2 + 1 end; writeln ('kl=', kl, ' ', 'k2=', k2) end.
Программа была написана с синтаксическими ошибками: a4 и х были записаны русскими буквами, а вместо нулей 0 использовалась буква О. Кроме того, конструкции if x<0 then kl := kl + 1; и if x<0 then k2 := k2 + 1 делают одно и то же, только с разными переменными. Скорее всего, одно из условий должно содержать знак не меньше, а больше, либо больше или равно.
// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,jmax:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end; Writeln end; for i:=1 to m do a[i,jmax]:=0; for j:=1 to n do a[imax,j]:=0; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); Writeln end end.
множесво на улице
множево в росссии
можество людей