Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
1. =СУММЕСЛИ(C1:C1001;"студент";D1:D1001)/СЧЁТЕСЛИ(C1:C1001;"студент")
2. в ячейку F2 поставить формулу =ЕСЛИ(ABS(E2-D2)<5;1) скопировать вниз до 1001
в ячейку G3 поставить =сумм(F2:F1001) это ответ
<h2>Ответ:</h2>
То что выделено синим означает, что вы не поставили ' '.Это так потому что программа составлена правильно.K-это курс, он вводится.Поэтому делается именно так, происходит подсчёт.
Я уже делал у меня правильно.
Копия своего же ответа не запрещена.
Поворот в лево
идти 1 шаг
повернуть в право
идти 1 шаг
повернуть в право
идти 3 шага
повернуть в право
идти 3 шага
повернуть в право
идти 1 шаг
Алгоритм:
Начало
Ввод t
Если t>1 часа, то
начать выполнение операторов
ввод S;
V=S/t;
вывод V
закончить выполнение операторов
иначе
начать выполнение операторов
ввод V;
S=Vt;
вывод S;
закончить выполнение операторов
Var S,V,t:integer;
begin
read(t);
if t>1 then
begin
read(s);
v:=s/t;
writeln('Скорость=',v);
end
else
begin
read(v);
s:=v*t;
writeln('Расстояние=',s);
end;
end.