Я тебя понимаю я тоже не понимаю мы в одной щколе?
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub
Program chisla;
vari,n,s1,sn,max,kolvo: byte;s: array[1..255] of byte;
beginfor i:=1 to 255 do s[i]:=random(255);max:=s[1];kolvo:=0;writeln('vvedite kol-vo chisel');readln(n);sn:=s[n];for i:=1 to n do write(s[i]:4);writeln;for i:=1 to n do if s[i]>max then begin max:=s[i]; kolvo:=kolvo+1; end;
writeln('s1=',s[1], ' sn=',sn, ' max=', max,' kolvo max=',kolvo);end.
В i2 напиши команду =ЕСЛИ(C2="15 июня";1;0) и растяни вниз, после чего в F2 напиши =ЕСЛИ(I2=1;E2;0) это все кто сдавал, после чего выдели столбик и нажми среднее значение, точно такую же операцию проверни с историей, замени 15 июня на история
Program n1;
Uses CRT;
Const n=40;
Var A:array[1..n] of integer;
i: integer; S:Real;
begin
writeln('Massiv: ');
For i:=1 to n do
begin
a[i]:=random(20);
write(' ',A[i]:2);
end;
writeln;
For i:=1 to n do begin S:=s+A[i]/n; end;
Writeln('Srednee arif.: = ',S);
readln;
<span>end.</span>