Program n1;
const n=15;
var a: array[1..n] of integer;
i,k5,kns,sum: integer;
sb: real;
begin
randomize;
k5:=0;
kns:=0;
sum:=0;
write('оценки: ');
for i:=1 to n do
begin
a[i]:=random(4)+2;
write(a[i],' ');
if a[i]=5 then k5:=k5+1;
sum:=sum+a[i];
end;
writeln;
sb:=sum/n;
writeln('кол-во 5: ',k5);
writeln('ср арифм: ',sb);
for i:=1 to n do if a[i]>sb then kns:=kns+1;
writeln('кол-во уч >ср арифм: ',kns);
end.

0 0

4 года назад

Помогите решить через Visual Basic !очень срочно

Ольга Николевна

Sub bassket()
N = 30
Dim A(30) As Integer
Dim i, x, y As Integer
Dim s As Variant
For i = 1 To N
  A(i) = Int(40 * Rnd() + 160)
  Cells(i, 2) = i
  Cells(i, 3) = A(i)
Cells(i, 4) = "Не годен, рост меньше 180 см"
If A(i) < 180 Then
Else
Cells(i, 4) = "Баскетболист"
s = s + 1
End If
Next i
Cells(i, 3) = "Всего ="
Cells(i, 4) = s
<span>End Sub

</span>

0 0

4 года назад

Умоляю помогите я это не знаю просто это информатика. Вставь пропущенные слова. Кодирование от _____________ отличается тем, что

Yuliya1206 [1]

Кодирование от ____шифрования_________ отличается тем, что кодируют с целью удобства<span>____хранения_______ и _____передачи _________ , а шифруют с целью _____скрыть______ смысл сообщения</span>

0 0

4 года назад

Прочитать ещё 2 ответа