Sub Z() Dim k As Integer Dim m As Integer Dim p As Single Dim i As Integer Dim j As Integer Dim n As Integer Dim x As Integer k = InputBox("Количество округов") m = InputBox("Количество партий") p = InputBox("Порог явки изберателей (в %)") s = "Выборы состоялись в округах: " For i = 1 To k For j = 1 To m x = InputBox("Округ " & i & ". Голосов за партию №" & j) n = n + x Next j x = InputBox("Округ " & i & ". Не голосовало") If (n / (n + x) * 100) > p Then s = s & i & "; " n = 0 Next i MsgBox (s) End Sub
1 var i, j, n: integer; a: array[1..3, 1..8]of integer; begin for i := 1 to 3 do begin for j := 1 to 8 do begin a[i, j] := random(-9, 9); write(a[i, j]:3); if a[i, j] < 0 then n := n + 1; end; writeln; end; writeln('Количество отрицательных: ', n); end.
2 var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i := 1 to 6 do begin for j := 1 to 7 do begin p[i, j] := random(-9, 9); write(p[i, j]:3); end; writeln; end; write('Какую строку вывести: '); readln(n); for j:=1 to 7 do write(p[n,j]:3); end.
3 var i, j, n: integer; p: array[1..6, 1..7]of integer; begin for i := 1 to 6 do begin for j := 1 to 7 do begin p[i, j] := random(-9, 9); write(p[i, j]:3); end; writeln; end; write('Какую строку изменить: '); readln(n); for j:=1 to 7 do p[n,j]:=5; for i := 1 to 6 do begin for j := 1 to 7 do write(p[i, j]:3); writeln; end; end.
4 var i, j, n: integer; a: array[1..10, 1..10]of integer; begin for i := 1 to 10 do begin for j := 1 to 10 do begin a[i, j] := random(-9, 9); write(a[i, j]:3); end; writeln; end; for j:=1 to 10 do a[j,j]:=0; writeln('Измененный массив: '); for i := 1 to 10 do begin for j := 1 to 10 do write(a[i, j]:3); writeln; end; end.
Это диапазон ячеек