Const xn =100;var a,b,i,j:integer;t:string;n:array[0..xn] of integer;beginReadln(b);for i:=0 to b do beginn[i]:= round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn[i]:= Round(random() *10);t:= 'n[' + inttostr(i) + '] =';writeln(t, n[i]);end;
writeln;writeln;
var n1:array[0..xn] of real;beginReadln(b);for i:=0 to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);end;
writeln;writeln;
Readln(a,b);for i:=a to b do beginn1[i]:= random() *10;t:= 'n1[' + inttostr(i) + '] =';writeln(t, n1[i]);
end;end;end.
Для решения задачи используйте формулу:
=СЧЁТЕСЛИ(D2:D19;">300")
В Excel есть следующие полезные функции:
СЧЁТЕСЛИ
Подсчитывает количество ячеек в диапазоне, удовлетворяющих заданному условию.
СЧЁТЕСЛИМН
Подсчитывает количество ячеек внутри диапазона, удовлетворяющих нескольким условиям.
СРЗНАЧЕСЛИ
Возвращает среднее значение (среднее арифметическое) всех ячеек в диапазоне, которые удовлетворяют данному условию.
СРЗНАЧЕСЛИМН
Возвращает среднее значение (среднее арифметическое) всех ячеек, которые удовлетворяют нескольким условиям.
32*84*8=21504 бит=2,625 Кб
640:2.625=236странц
вроде все.
Правильный ответ у меня вышло Г