Проект-это особый вид познавательной деятельности учащихся;
Мини-проект-для решения небольшой проблемы,но суть самого метода,его идея должна оставаться неизменной.
11+7+1=19 клубков
она может вытащить 11 синих клубков и 7 зеленых но если она вытащит еще один клубок. то ОБЯЗАТЕЛЬНО вытащит 1 клубок красной шерсти
Uses crt;
const n=10;
var a:array [1..n] of integer;
i,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
writeln(a[i]);
end;
writeln;
for i:=1 to n-1 do
begin
if abs(a[i])=abs(a[i+1])
then
begin
if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0))
then
inc(k);
end;
end;
writeln(k);
end.
Uses Crt;
Const
N = 10;
Var
X:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Write('Введите массив целых чисел X(',N,'): ');
For i:= 1 to N do
Begin
Read(X[i]);
if X[i] > 0 then k:=k+1
End;
WriteLn('Количество положительных элементов X(',N,'): ',k);
ReadLn
End.
Пример работы программы:
Введите массив целых чисел X(10): 1 2 3 -4 -5 -6 7 8 9 0
Количество положительных элементов X(10): 6